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Tired Cf your 

GENERAL LEDGER? 



VERSA 
LEDGER II 



• THE ULTIMATE PERSONAL CHECK REGISTER 

• A PROFESSIONAL ACCOUNTING SYSTEM 

• A PERSONAL FINANCIAL MANAGER 

• A SMALL BUSINESS ACCOUNTING SYSTEM 



• A COMPLETE GENERAL LEDGER 
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HCH IT WCKI^S 

VERSALEDGER II is a complete accounting system that grows as you or your business grows. To start, yourVERSA- 
LEDGER II acts as a simple method of keeping track of your checkbook. Just enter your check number, date and 

whom the check is made out to. As you or your business grows, you may add more details to yourtransactions 

account number, detailed account explanations, etc. 



RSALEDGER 



• VERSALEDGER II is an expanded and enhanced version of our original VE 

• VERSALEDGER II gives you an instant cash balance at anytime (IF YOU WANT 

• VERSALEDGER II can be used as a small personal checkbook 
register (IF YOU WANT IT TO) 

• VERSALEDGER llcan run yourmilhon dollar corporation (IFYOU 
WANT IT TO) 

• VERSALEDGER II prints checks (IF YOU WANT IT TO) 

• VERSALEDGER II stores all check information forever (IF YOU 
WANT IT TO) 

• VERSALEDGER II can distribute one check to multiple expense 
accounts (IF YOU WANT IT TO) 

• VERSALEDGER II can handle more than one checkbook (IFYOU 
WANT IT TO) 

• VERSALEDGER II can be used to replace a general ledger. (IF 
YOU WANT IT TO) 

• VERSALEDGER II prints balance sheets and income statements 
(IF YOU WANT IT TO) 

• VERSALEDGER II can interact with any ot the other four modules 
Oi the VERSABUSINESS SYSTEM 




SPECIAL 

INTRODUCTORY 

PRICE 

s 99. 95 

{$199.95 after Dec. 31, 1982) 



VERSALEDGER II comes with a professionally written manual (created for the first-time computer user), which includes sample report print- 
outs 



• VERSALEDGER II HASAN ALMOST UNLI MITED CAPACITY 

( 300 checks per month on single density 5'/i" disk drives such as the TRS- 

( 500 checks per month on the Apple II) 

(2400 checks per month on the TRS-80 Model III) 



Model I) (6000 checks per month on the TRS-80 Model II) 

(3000 checks per month on single density 8" CP M) 
(almost unlimited capacity on hard disk drive) 



• VERSALEDGER II OUTPERFORMS ALL OTHER COMPETITIVE SYSTEMS NOW AVAILABLE TO MICROCOMPUTER USERS, ATA FRAC- 
TION OF THE COST -AND WE OFFER A 30-DAY MONEY BACK GUARANTEE TO BACK UP OUR CLAIM 1 ) 

— CAN BE USED WITH 1 or MORE DISK DRIVES with 48K — 
ALSO AVAILABLE: VERSARECEIVABLES, VERSAPAYABLES, VERSAPAYROLL, and VERSAINVENTORY 
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ON THE COVER 

On the cover this month is the 
book Learning TRS-80 BASIC for the 
Model I, 11/16 and III. You may con- 
sider this to be our plug of the month, 
but everyone who has a TRS-80 should 
have a copy of this book. Learning 
TRS-80 BASIC for the Model I, 11/16 
and III is a revised (actually massively 
revised) version of David Lien's 
Learning Level II (first introduced in 
1977). 

David A. Lien, the author, is the 
best computer book writer anywhere 
ever! His best selling book is owned 
by over 300,000 Radio Shack computer 
owners. As a matter of fact, I believe 
that Dr. Lien is the major factor that 
made the TRS-80 a successful com- 
puter and perhaps, the one person 
most responsible for the success of 
the small and personal computer. 
How did he do it? David Lien wrote 
the original manual that accompanied 
the orginal TRS-80 computer. At that 



time, no one understood anything 
about computers (at least if we limit 
our discussion to "regular people"). 
Dr. Lien wrote an illustrated, step-by- 
step, easy to follow, non-intimidating 
manual that accompanied every TRS- 
80 Model-I computer. If you walked 
into a Radio Shack store five years 
ago, no one at Radio Shack knew 
anything about computers. Many of 
the stores had a Radio Shack com- 
puter sitting on the shelf. Just ask the 
salesman about the computer and the 
reply was, "It's a great computer 
. . . Just take a look at the manual." 
Well, I took a look at the manual . . . 
and sure enough, it did look easy. 

Why am I making such a big point 
about the manual? Many years back, 
in the beginning, RADIO SHACK re- 
leased their first computer. Their 
original computer contained a 
watered down version of the present 
BASIC in use (called LEVEL-I BASIC). 
continued on page 7 
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DOSPLUS n and the THS-80 model n. The Djaamk Duo. 

QuCeS, Corvus Micro Mainframe, VK 
Data and other popular hard drive 
sub-systems. 

DOSPLUS n ... All the quality and 

dependability you'd expect from 
DOSPLUS. 

For the dealer nearest you call 

1-800-327-8724 

Dealer inquiries invited. 

$349.95 

For product information (305) 983-3390 



The TRS-80 model U was created to help 

you take care of your business. DOSPLUS 
II was created to help your TRS-80 help 
you and your business even more. 

DOSPLUS n replaces your O.E.M. dos 
with an ultra-sophisticated operating 
system that is 5 or more times faster, more 
reliable and is totally compatible with all 
standard business oriented software 
designed for use with the model EL The 
result is a computer/operating system 
that far exceeds manufacturer's specs — 
with more potential and more capacity to 
be of service to you. 

DOSPLUS II operating systems are 
available for either your floppy or hard 
disk drives. The hard drive operating 
system is compatible with Radio Shack, 



DOJPiUS 



DOSPLUS first in quality! 
First in the industry) 

lb order call toll free 1-800-327-8724 
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11500 Stemmons Fwy., Dallas, Tbxas 75229 
(214) 484-2976 " (800) 527-7432 
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MICRO SYSTEMS 
SOFTWARE, IMC, 

4301-18 Oak Circle, 
Boca Raton, FL 33431 



EIGHTY 

SYSTEM 

NEWSLETTER 

FOB TBS-80* USEES 
(Mod. I/II/III/16/COLOR) 
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(Also for dealers, mfg. and 
industry personnel) 

Published 52 times per year 
and mailed First Class 

□ Latest TRS-80* System News 
D Product Notes & Eeports 

D New Hardware & Software 

□ Industry Trends 

□ User Notes & Comments 

□ TRS-80* Article Summaries 

RATES 

$39.00 Year -First Class 
(US, Canada & Mexico) 

$75.00 Year - Foreign (Air) 

(Must be in US Funds) 

SAMPLE COPIES $2.00 



EIGHTY SYSTEM NEWSLETTEK 
3001 Route 27 Franklin Pk„ NJ 08823 

D $39.00 (1-Year Subscription) 
D $75.00 (Foreign-Air-US Funds) 
D $ 2.00 (2 Sample Issues) 

Name 

Company 

Address . 

City 

State 



THE CRYSTAL BALL 
(News and tumors of Interest to TIS-80 Owners) 



.Zip 



(MC & VISA OK-Include card number, 
expiration date & signature.) 

•TRS-80 is a Registered Trademark of Tandy 
Corporation/Radio Shack Div. 



There have been some fantastic 
new devices and features for micro- 
computers introduced in the past few 
months. It's now possible to have 
your computer read any ASCII text 
and speak it out loud, you can use 
your computer to access individual 
pictures from a Videodisc system, you 
can buy almost anything (from stereo 
and TV equipment to linens and 
china) over network systems (like 
SERVE on THE SOURCE), you can 
control lights and appliances when 
you're not home, and you can even 
choose from several makes of robot 
kits for your TRS-80. Here's a few 
more inventions that are now being 
mass-produced for microcomputers: 

STRANGE NEW KEYBOARD FROM 
ENGLAND 

The evolution of the typewriter from 
the first full-keyboard manual ma- 
chines, through electric typewriters to 
today's word processors has not been 
matched by an evolution in the prac- 
tice of touch-typing. The original 
"QWERTY" keyboard was designed 
not to speed up typing, but rather to 
slow it down. The first typewriters 
would simply jam if you typed two 
letters in succession too quickly. On 
the QWERTY keyboard, only one of 
the eight "home keys" is a vowel— 
the key under your left pinky, and 
due to the frequency of use of differ- 
ent letters, the left hand does far 
more work than the right hand. Conse- 
quently, we are left today with a 
keyboard that defies both logic and 
reform. To date, no alternative key- 
board has ever been accepted, because 
hundreds of thousands of typists al- 
ready can type on a QWERTY, and 
see no reason to learn a whole new 
keyboard now. A novice typist could 
be taught an alternative keyboard lay- 
out, but it would be hard to find a 
teacher, and harder still to find a job 
where the keyboard is used (although 
reprogramming of keys may soon allow 
the customizing of any keyboard 
through software). The most famous 
alternative keyboard is the "DVORAK" 
keyboard (named for its inventor) 
which was designed according to ease 



of learning and operation and the 
average frequency of use of each let- 
ter in the alphabet. This keyboard has 
attracted much attention and acclaim, 
but has never had enough followers 
for it to catch on in a big way. Now a 
British company has suddenly adver- 
tised a keyboard with a totally new 
concept in text typing. The MICRO- 
WRITER first appeared in a full page 
ad in the Wall Street journal on July 
20, 1982, where the company solicited 
American distributors to take on their 
new product. It's hard to believe, but 
this is a one-handed keyboard for 
typing text. The MICROWRITER has 
only five main keys (one under each 
finger) and a control key, and yet the 
Microwriter company says that it is 
more efficient than an ordinary key- 
board for typing text. This small rec- 
tangular unit (about the size of a large 
scientific calculator) is a good example 
of modern "ergonomic" design— it is 
molded to the shape of your hand 
and fingers so that it's nearly impos- 
sible to hit the wrong key. You just 
place the palm of your hand on the 
keyboard, and your fingers naturally 
fall right into place. This keyboard 
could cause a revolution for in-the- 
field researchers and reporters: a re- 
porter working outside in freezing 
weather could probably put the 
MICROWRITER into a coat pocket 
where it's nice and warm, then put 
his hand in his pocket and start 
typing! Back at the hotel room, the 
MICROWRITER gets plugged into a 
TV set for reading and editing of the 
text, then the phone is used to send 
the story to the home office. 

Their theory is that the QWERTY 
keyboard is the reason that word pro- 
cessing remains in the domain of the 
secretary— because few executives 
will learn to touch-type on a QWERTY 
keyboard. They maintain that the 
"coding" used by the MICROWRITER 
operator is so simple that anyone can 
learn to use it in about an hour. They 
hope that executives will not hesitate 
to learn its use, the way they frequent- 
ly balk at the idea of learning operat- 
ing a computer or word processor 

continued on page 6 
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A Sweet Ved... 

Buy an Alpha Joystick and 
games together and deduct up 
to $14.00 from your order. 



(Model I 
version 



The Alpha Joystick adds arcade-style control to 
TRS-80 action games. Simply plug it in and begin 
playing joystick compatible games. No modification, 
wiring or batteries are required, and the Alpha Joy- 
stick is compatible with other TRS-80 accessories. 
The instructions are clear and complete. We even 
show how easy it is to experiment in BASIC 
(A = INP(0) reads stick) and convert BASIC 
programs to Joystick control. 

MODEL I - Plugs directly into any Level II Keyboard 
(card edge on rear) or expansion interface (left side, 
next to printer port). 

MODEL III - Works with any Model III BASIC 
system and plugs into the 50 pin I/O bus (largest 
edge connector underneath). 



ALPHA 

i/CrFOTfCrfV 




Joystick + 1 game Deduct $ 6,00 
Joystick + 2 games Deduct $12.00 
Joystick + 3 games Deduct $14.00 



only $39.95 

MODEL I OR III, SPECIFY WHEN ORDER 
ING. PRICE INCLUDES ATARI JOYSTICK + 
ALPHA INTERFACE + INSTRUCTIONS + 
DEMO PROGRAM LISTING. 

14 DAY MONEY BACK GUARANTEE - if you are not 
delighted, return it within 14 days for a prompt and 
courteous refund. 

Choose from any of the Joystick Compatible games 
below. Be sure to mention the "Sweet Deal" dis- 
count when ordering. 




PENETRAT0R 

Soar swiftly over jagged landscape, 
swooping high and low to avoid obsta- 
cles and enemy missile attacks. With 
miles of wild terrain and tunnels to 
penetrate, you're well armed with 
bombs and multiple forward missile 
capability. From Melbourne House. 
Features sound, trainer mode and cus- 
tomizing program. 
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SCARFMAfl 



This incredibly popular game craze now 
runs on your TRS-80! It's eat or be 
eaten. You control Scarfman around the 
maze, gobbling up everything in your 
path. Try to eat it all before nasty 
monsters devour you. Excellent high 
speed machine language action game 
from the Cornsoft Group. With sound. 



SUPEI M0WA 

Asleroids float ominously around (tie 
screen You musl destroy the asierosds 
belore 1hey destroy you' (Big asleroids 
Dreak mlo little ones } Your ship will 
respond to Ihrust. mtate. hyperspace 
and tire Walch oul tor I hat saucer with 
the laser' As reviewed in May 1981 Byte 
Magazine 




lunar lander 



As a yasl panorama moonscape scrolls 
by selecl one of many landing sights 
Trie more perilous I he spol !he more 
poinls scored ■— ii you can land safely 
You control l EM main engines and side 
Iriiuslers Absolutely me best use of 
TRS-80 graphics we have evei seen 1 
Front AdvenUire Iniemahonal With 
sound 



ATTACK ¥§mt 



As your ship appears on the bo! torn of 
the maze, gtghi alien ships appear on the 
lop. all (raveling dsrectly al you 1 You 
move loward them and tire rmssilas Suf 
the more aliens you deslroy Ihe laster 
the remaining oms become if you gel 
loo good you must endure Ihe "Flag- 
ship" With sound eftecls' 



COSMIC FlfiMTEl 

Your ship comes oui o! hyperspace 
under a convoy o! aliens You destroy 
every one But another se! appears 
F.hese seem more intelligent You 
eliminate Ihem ;oo Your luel supply is 
diminishing You musl destroy (wo more 
sels Pelore you can aock The space 
station is now on your scanner With 
sound' 



GALAXY INVASION 



The sound of \\~\e klaxon *s calling you 1 
invaders have been spoiled warping 
loward Earth You sh.lt r-gnt ana let! as 
you fire your lasers A tew break form- 
ation and tly slraighl al you' You place 
your linger on [he ine button knowing 
!nai Ihis shol rnusi connect With sound 
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DEFENSE COMMAND TALKING ROBOT ATTACK ARMORED PATHOL 



Tha invaders are back! Alone, you de- 
fend the all important nyciear fuel can- 
isters from thieving aliens whs atlack 
repeatedly. An alien passes your guard, 
snatches up a cannister and flys straight 
of!. Quick! You have one last chance to 
blast him out of tm sky! With sound and 
voice. 



This game TALKS without a voice syn- 
thesizer, through the cassette port. With 
just a hand laser in a remote section o! 
the space station, you encounter armed 
robots. Some march towards you, more 
wait around corners. Careful. Ihe wallas 
are electrified. Zap as many robots as 
you dare before escaping to a new sec- 
tion. More moots awaii you. 



A realistic tank battle simulation. Your 
view is a 3—0 perspective ot an alien 
landscape, yanuever your T-36 lank to 
locate and destroy enemy lanks and 
robots that lay hidden, ready to assault 
you. Clever graphics creale the illusion ot 
movement and dimension. From 
Adventure International With sound 



GAME PRICES 

"Penetrator" Disk or 2 Cassette Package $24.35 

"Armored Patrol" Cassette $19.95 . . Disk $24.95 
ALL OTHER GAMES: 

16K Level 2, ModeM 4- Model 3 Cassette $15.95 

32K Level 2, Model 1 + Model 3 Diskette $19.95 

These games are "Alpha Joystick Compatible." 
They may be played with or without joystick 
(using arrow keys). 

Toll Free Order Line 



Ml ALPHA 



79-04 Jamaica Ave., Woodhaven, NY 11421 
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(212) 296-5316 



ORDERS ONLY. HOURS; 9 AM - 5:30 PM. E.S.T, 
FOR INFO CALL: (212) 296-5916 

ADO $2.00 PER ORDER FOR SHIPPING AND HANDLING. 

WE ACCEPT VISA. MASTERCARD. CHECKS. M.O. 

COD. ADD $3.00 EXTRA. 

NY RESIDENTS ADO SALES TAX. 

OVERSEAS, FPO, APO' ADO 10%. 

DEALER DISCOUNTS AVAILABLE 
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E/Z-SCREEN 



MAKES THE TRS-80 SCREEN WORK 
LIKE A COMPUTER INSTEAD OF A TELETYPE 



NOW YOU CAN WRITE PROGRAMS THAT ARE! 



PROFESSIONAL LOOKING 
USER FRIENDLY 



'EASY TO USE 
AND FUN TO CREATE 



E/Z-SCREEN IS A SCREEN DESIGN 
AND CODE GENERATION TOOL FOR THE 
MOD I AND III 

FOR USE BY EXPERT AND NEOPHYTE ALIKE 

DESIGN SCREENS RIGHT ON THE SCREEN 
E/Z-SCREEN AUTOMATICALLY "WRITES" THE BEST DATA ENTRY 
CODE YOU'VE EVER SEEN 



"Once you feel familiar with the 
operating features of E/Z-SCREEN you 
will be anxious to design your own 
screens... I know I was, and I wasn't 
disappointed . »* -A . A . Wicks 
H & E COMPUTRONICS • Oct. 1982 



SOURCE LIB Systems, Inc. 
1670 Pershing St .Valley Stream, N.Y, 11580 (800)223-1087 

PRICE : 149.95 Dealer inquiries invited. All major 
credit cards accepted. 30 day money back guarantee. 




THE CRYSTAL BALL 

continued from page 4 
now. They say that "the learning sys- 
tem is just an extension of normal 
handwriting, which is why we refer to 
Microwriting as "electronic handwrit- 
ing." However, the advertisement 
carefully avoids direct clues as to the 
nature of the coding method. 



The MICROWRITER is more than 
just a keyboard, it's actually a com- 
plete, battery operated, portable, 
personal word processor with an 8K 
memory, a 16 character LCD display, 
and resident software that provides 
extensive editing and communication 
facilities. Through its RS232 port, it 
can communicate with "practically 



any" computer or word processor, 
display 16 lines on a monitor or 
ordinary TV, interface with a portable 
cassette recorder, telex, or acoustic 
coupler, and more. 

The advertisement also seems to 
aim itself at U.S. computer manufac- 
turers, apparently in hopes of making 
the MICROWRITER a standard option 
available for popular U.S. microcom- 
puters. The ad predicts that this key- 
board will become THE standard key- 
board for text typing, and seems to 
imply that any manufacturer who 
does not make the MICROWRITER 
keyboard a standard option soon may 
get left behind in the rush to convert 
to the new keyboard. 

The actual method of typing with 
one hand is still an enigma— how can 
they get all 26 letters, 10 digits, and 
punctuation symbols without two or 
more keystrokes per character? And if 
there are two or more keystrokes per 
character, how can you ever type as 
fast as typists do on a standard key- 
board? We have sent for more infor- 
mation (and photos) and hope to 
answer these questions about one- 
handed touch typing in our next issue. 

"TOUCH SCREEN" FOR MICROS 
NOW AVAILABLE 

One of the most exciting develop- 
ments in interactive computer systems 
is the development of the touch 
screen. This touch screen is a curved 
transparent panel which attaches to 
the video screen of a computer or 
videodisc system. This screen has 
invisible electrical conductors in it, 16 
horizontal conductors on a glass 
panel, opposite 16 vertical conductors 
on a mylar sheet. When you press any 
area of the screen, you cause a pair of 
conductors, horizontal and vertical, 
to come into contact. This gives the 
computer the coordinates of the point 
that was touched. 

This device allows you to write a 
program that displays "buttons" on 
the screen for various selections or 
functions, then sense which "button" 
is pushed by the operator, giving you 
the ability to create unlimited special- 
ized keyboards, printed right on the 
screen. In fact, a system designed 
around this type of device would not 
need a physical keyboard at all— after 
an automatic boot-up, all functions of 
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a specialized system could be carried 
out by touching "buttons" displayed 
on screen. Since switch positions are 
located wherever two of the 32 con- 
ductors cross, the touch screen has 
256 different positions — that's a big 
keyboard— and plenty of room for 
both program prompts and lots of 
"buttons." An additional application 
which is of very great potential is in 
interactive video training and demon- 
stration systems (which we have 
described at some length in an earlier 
issue). 

The screen is available in 12, 15, 
17, and 19 inch models that can be 
clamped or bonded to video screens. 
Users must also purchase an interface 
that allows connection to most micro- 
computers. Prices range from $840 to 
$900 for the screens, and the interface 
costs $200 (or $300 including its own 
power supply). For more information 
write or call Detector Electronics, 
6901 West 110 St., Minneapolis, MN 
55438; (612) 941-5665. 

SOME PREDICTIONS . . . 

We're going to pass on a few inter- 
esting predictions and inside-industry 
rumors (we heard about them in 
INFOWORLD): 

Perhaps because of portables like 
OSBORNE and imitators, Radio Shack 
will introduce a portable computer (a 
real computer, not just a terminal) 
this fall. 

Radio Shack may release a color 
computer that looks like a Model III, 
and a Model II without any disk 
drives— for use as a terminal in a 
network. 

Heathkit is working on a ROBOT 
KIT that will have amazing features 
like mobility (it will climb stairs), 
speech synthesis, voice recognition, 
and VISION. All this for less than 
$200. 

Xerox has apparently developed a 
.ASER PRINTER with 2400-DOTS- 
3 ER-INCH resolution! That is a fan- 
astically fine resolution, far better 
:han can be had with present laser- 
scanning typesetters (which can pro- 
Juce type as good as the type you're 
■eading now). The most amazing part 
s that they could probably sell such a 
winter for $5000-$6000! But rumor 
las it that they will SUPPRESS the 
echnology rather than make it avail- 
tble to the public! Perhaps because 



they already have a competitive 380- 
dots-per-inch printer, they may not 
want to compete with it. This may not 
be a good idea, because any innova- 
tion that American industry suppresses 
is bound to come to us soon from the 
Far East. 

Ok, here's our own wild prediction. 
Within 3 years we will see a computer 
with many or all of the following 
features: 

Portability (briefcase-sized, battery 
powered) 

Full color flat LED display with med. 
resolution graphics capability 
Touch Screen 

More than a Gigabyte (1000 
Megabytes) of internal non-volatile 
RAM 

Optional portable 3" hard disk unit 
with some unbelievable capacity 
Built-in four-color printer/plotter 
Full size keyboard with standard 
numeric and editing keypads and 
programmable keys 

Standard software in ROM includes 
Word Processor, Database, Communi- 
cations 

Optional ROM (plug-in) software 
(can also store downloaded software 
in non-volatile RAM) 

Speech synthesis and voice recog- 
nition 

Communicates with any other 
computer or peripheral device 
Costs less than $5000 B 



BITS AND PIECES 

continued from page 2 
At that time, no novice understood or 
would dare to purchase a computer. 
Radio Shack had the vision and the 
luck to hire David Lien to write the 
manual for their first computer. The 
results were a huge success. Dr. Lien 
wrote a step-by-step, well-illustrated 
learner's manual for the TRS-80. Any- 
one visiting a Radio Shack store 
(including myself) was very impressed 
with the manual that accompanied the 
computer— this manual was destined 
to go down in history as the best 
tutorial manual ever written for begin- 
ners. The step by step approach 
looked so simple that you couldn't go 
wrong. Of course, the computer with 
the manual became an instant success 
and Radio Shack soon released their 
Level II BASIC. Unfortunately, Radio 

continued on page 8 
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• Simple to use even tor the 4 novice 

• Maintain virtually an infinite number 
of disks all in continuous alph or /ip 
order essential for large list* 

• Sort 2260 entries |2 full 4t) tract dou- 
ble density disks] in only J2K or an 
incredible 44*0 entries 12 full fltj track 
disks) in only 48K ' 

• Super fast sort by alph or /ip order 
(8 set I or 1000 entries) both orders 
tan exisi simultaneously on disk 

• High speed recovery of entries from 
disk pulls in over 1 1 per set 1 

• Transfers old files to ouf system 

• less than S digit zips have leading O's 
appended 

• iupp ,i i-, ■< ,; u r /ipy Canadian zips. 

• Ztporder is sub-alphabetized" 

• Backup data disks are easily up- 
dated as entries are ( reated, edited. 
or sorted extremely useful 1 ' 

• Optional reversal of name about 
comma 

• Permits telephone numbers, ett 

• Prints on envelopes or on labels. 1. 2. 
f, or 4 across 

• f est label envelope pjinltno lets y ou 
make adjustment* witn ease 

• Master printout of your list in several 
formats 

• Selet tive printing by spec itic zips or 
by zip range 

• I dittrtg is simple and last automatic 
search Batch transfer of edited en- 
tries to backup disks 

• Provides tor duplu ate labels 

• Deleted entrie have 'holes" on disk 
lilled automatically 

• Automatic 'repeat" feature 

• I oad and st roll' through entries 

• Optional ATTN "line 

• Plenty of user del tried fields with 
various options for simultaneously 
purging and selet ling the printout 

• Alt B\ in address labels are re- 
placed by easier to read O's 

• Continuous display of numbers of 
labels envelopes printed 

• tach disk entry automatically "re- 
members how many mailings have 
been made 

• Primarily written in BASIC for easy 
modification embedded machine 
code lor those speed sensitive areas 

• Option*] second address line 

• fan print labels at i teation 

• f »tra cost options for form Jjtters. 
c ustom printouts. & disk subsets 

• Adjusts to any IX )S and muc h more 

• Hardware requirements i2 K. printer, 
and T or 2 drives 



Precision Prototypes 

4 in. i EjsfRnra 

Ri'iugin. Texas " , 8.)77 

512-526-475^ 



iLjLilsIiTj I tiLM«ILjD* 



October 1982 



maxell 




the top of the line 
in floppy diskettes 



■ ,. -100 «d«' 
■'.'.. ,. ■ ,• ■ ■ ,-.,■ I.,' . [i I 
»1r- IKA 

ABM PRODUCTS 

8B68 CLAIBEMONT MESA BLVO 
SAN OIEGO CALIFORNIA 92123 

I oh f 'n*KOii* ii« O'dt's.Onj* ! 



BITS AND PIECES 
continued from page 7 
Shack and Dr. Lien were unable to 
agree on financial terms, so Radio 
Shack had someone else write the 
manual for the more advanced BASIC 
(but Radio Shack did continue to 
include Dr. Lien's manual with every 
computer, since all the commands and 
approaches in it also apply to Level II 
BASIC). Radio Shack never did come 
out with a good training manual for 
Level II BASIC— their manual is strictly 
a reference work. So, Dr. Lien went 
on to form his own company and fill 
the gap by selling his own book, 
Learning Level II BASIC, without 
the help of Radio Shack. He was able 
to sell thousands of copies at $16.95 
each. 



TRS-80 MODEL 1 T ' M - 
GOLDPLUG-80 

Eliminate disk re-boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface. .... $18.95 
Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) .$9.95 ea 

Full set, six connectors. . . $54.95 




EAP COMPANY 

P.O.Box 14, Keller, TX 76248 

1817)498-4242 

•TRS-80 is a trademark of 

Tandy Corp. 



That's the story of David Lien. 
Now, Dr. Lien has published a greatly 
expanded and updated version of his 
book called Learning TRS-80 BASIC 
for the Model I, II, III and 16. 
This is the ultimate tutorial work for 
anyone wishing to learn TRS-80 
BASIC. It also includes plenty of aids, 
hints and ideas for experienced pro- 
grammers at any level. Written in a 
relaxed and amusing style, this book 
leads the begnning user step-by-step 
through the many spects of BASIC 
programming. Sample programs and 
ideas for writing software abound. 

Easy-to-understand directions guide 
the reader confidently to programming 
proficiency. Questions and answer 
sections in most chapters reinforce 
learning of the material covered. 

EVERY TRS-80 .OWNER NEEDS AND 
SHOULD HAVE A COPY OF Learn- 
ing TRS-80 BASIC for the Model I, 
11/16 and III. New computer owners 
will be delighted with the TRS-80 
BASIC TUTORIAL section. It is the 
best TRS-80 tutorial anywhere. Inter- 
mediate TRS-80 users will find every 
TRS-80 command described within 
the manual. Not only will you find an 
easy to read description of each 
command, each command described 
comes with one or more simple 
sample programs that illustrate its 
use. And even the "know-it-all" pro- 
grammer who doesn't need this book 
will find a wealth if precious informa- 
tion not available elsewhere, including 
information on PEEKs and POKEs, sor- 
ting and sorting techniques, Disk 
BASIC usage, error handling and more. 
Educational institutions using com- 
puters will find the question and 
answer approaches with exercises to 
be extremely helpful to students (and 
virtually eliminate the need for the 
teacher all together). 

Do ! like the book? If you check 
the past 50 issues of Computronics, 
you'll find that no other computer 
product available has received such 
high praise. I certainly do believe that 
this is the one product that I would 
recommend as essential to every TRS- 
80 owner. I do attribute most of my 
early computer knowledge Dr. Lien's 
original manual and find that I use his 
latest book is even more valuable. 

Learning TRS-80 BASIC for the 
ModelS, I, 11/16 and Hi (writ- 
ten by David A. Lien and published 



by COMPUSOFT PUBLISHING) is 
available from H & E COMPUTRON- 
ICS, INC. for $19.95 (plus appropriate 
postage— $3 within the U.S.). 

COLOR COMPUTER SOFTWARE 

RADIO SHACK has decided to 

allow non-RADIO SHACK stores to 
sell the TRS-80 Color Computer (al- 
though it won't be called TRS-80). 
I've always believed that the TRS-80 
Color Computer is Radio Shack's most 
advanced computer, but know one 
knows it yet. Radio Shack has decided 
to market the color computer at a 
very low price. The operating system 
that Radio Shack released for the disk 
drives is substandard (compared to 
the operating systems available for 
their other computers). Hence, very 
little good software has become avail- 
able for the color comptuer. Perhaps, 
with Radio Shack's new policy, non- 
Radio Shack vendors will come up 
with the software that will really allow 
the color computer to take off. 

TANDY WILL SELL COMPUTERS 
OUTSIDE OF RADIO SHACK 

Tandy has made another strange 
marketing move: they're going to sell 
a non-Radio Shack version of the 
COLOR COMPUTER (to be named 
the TDP SYSTEM 100) to independent 
computer dealers. Apparently, Tandy 
feels that it is missing a major part of 
the market. With thousands of com- 
puter stores now popping up every- 
where, and dozens of computer 
manufacturers fighting over shelf 
space, Tandy wants some of that 
shelf space too. This may not turn 
out to be a good idea for Tandy, and 
will definitely be bad news for Radio 
Shack. 

The problem is this: the new Tandy 
TDP 100 is identical with Radio Shack's 
COLOR COMPUTER. The only differ- 
ence is the color of the case and the 
brand name printed on it. Although 
this computer is aimed basically at 
the home market (competing with 
Atari, VIC-20, etc.), it has always been 
about the highest-priced computer in 
its class (even considering a recent 
$100 price cut on the Radio Shack 
version). The Tandy version will sell 
for exactly the same price as the Radio 
Shack machine. Since the TDP 100 and 
the Radio Shack COLOR COMPUTER 
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are to have identical characteristics, 
and the same high price, then Tandy's 
only real competition will be Radio 
Shack! Employees of the Radio Shack 
division, especially Radio Shack store 
owners, will undoubtedly have some 
complaints for their parent corpora- 
tion. If more low-cost, powerful color 
computers become available soon 
(like the Sinclair SPECTRUM, with its 
$95 disk drives and 64 K), then both 
versions of Tandy's computer will be 
in big trouble. 

If Tandy were a bit wiser, they'd 
concentrate on getting some good 
software available for the COLOR 
COMPUTER— it's basically a very good 
machine, but the lack of available 
software may drive most of its owners 
crazy. And Radio Shack has enough 
trouble keeping up in the market 
without competition from within. ■ 

LETTERS TO THE EDITOR 
Sorting Things Out 

I'm a recent subscriber to Compu- 
tronics and am very favorably impres- 
sed by your editorial content. Perhaps 
you or your readers could help me. 

In developing programs on the 
Model 111,1 have found the CMD"0" 
string sort to be very useful, and fast 
compared to BASIC. But 1 have wished 
for a similar sort for numeric arrays. 

OK, so 1 can read a double preci- 
sion list off disk as a string array, then 
sort then save back to disk and later 
read in as a numeric array. I've used 
this technique, but a double precision 
number requires a string length of 17 
characters, as opposed to 8 bytes 
handled as a number. Thus, the size 
of the array is limited to less than 
2000 numbers. If sorted as double 
precision numbers, the array could 
be twice as large. Similar arguments 
can be made for single precision and 
integer numbers. 

What I need is a machirfe-code 
sort that can be called from BASIC as 
easily (almost) as CMD"0". The rou- 
tine on page 16 (August 1982) is the 
idea, but for numbers. (I wonder why 
the author didn't avail himself of 
CMD"Q" for the Model III version.) 
Perhaps you have published such a 
sort in past issues. Perhaps one of 
your readers would share one with 
us. I'm not an assembly programmer 



so it will have to be handed to me on 

a silver platter as clearly as in Mr. 
Wicks's article referred to above. If I 
use it in a commercial program, I'm 
willing to pay (a little!). 

Royal Dossett 
Datawriter Corporation 
2793 Pheasant Road 
Excelsior, Montana 55351 

First, a machine-language sort for 
double-precision numbers wouldn't 
be nearly as fast as you may expect, 
because the Z80 instruction set does 
not include double-precision calcula- 
tions. Calls would have to be made to 
the ROM subroutines, and there 
would be little savings over simply 
doing the sorting in BASIC. 

We are currently publishing a series 
of articles on sorting called "Array of 
Hope for BASIC Programmers" by 
Arne Rohde. These articles may give 
you some ideas on how you can 
handle sorting more efficiently in 
BASIC. 

If you want to try a commercial 
utility package, we would suggest that 
you look into GSF (Generalized Sub- 
routine Facility) from Racet Computes 
or FASTSORT from Howe Software, 
but check the documentation to see 
if these packages do what you require 
before ordering. 

Adjusted Patches 

I saw in the "Model 3 Corner" 
Quly '82) that you suggest a patch to 
TRSDOS that gives full error messages 
instead of cryptic error numbers. 
Bravo! 

However, please note that the 
patch as give only applies to version 
1.3. Under the 1.1 and 1.2 versions 
the same code comes two bytes 
earlier. 

That is, substitute ADD=4E26 in 
the parameter list, for disks of older 
vintage. Typically these will be disks 
with Radio Shack software packages 
using lots of disk file manipulation, 
which do not work under the newer 
1.3 version. Reason: in order to fix 
one bug (killing open files would 
destroy the disk directory) they 
accidentally aranged it so that all files 
were closed by BASIC'S CLOSE com- 
mand, regardless of file numbers given 

continued on page 10 
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The Only Complete Document Proo!r«Hlta s System 
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Featuring Random House® Dictionary 

• Complete Accuracy-looks up every word; 
does not use less accurate root word 

, analysis, plus Random House Dictionary 
"•* • Full Interactive Correction-standard 

• Instant Access to Dictionary 

• Compact-Random House Dictionary 
supplied in sizes to tit your system 
(50,000 words standard) 

QRAMMATlk™' 

Beyond Spelling Checking 

• Detects typos, punctuation and 
capitalization errors, misused words 
and phrases 

• Analyzes Writing Style 

• Suggests Alternative Usages 

= NO ERRORS 

"The programs together (Proofreader and 
Grammatik) offer a dynamic tool for 
comprehensive editing beyond spelling 
corrections. " 

-Dona Z. Meilach in Interface Age, 5/82 
"Grammatik is the perfect complement to a 
spelling check program. " 

-Dr. Alan R. Miller in Interface Age, 5/82 
"If you use a word processor and a spelling 
checker, then you.should investigate the unique 
capabilities of this program. Grammatik is a 
surprisingly fast and easy to use tool for 
analyzing writing style and punctuation. " 

-Bob Louden in InfoWorld, 12/81 
"For the user who is as tight with his dollar as I, 
Proofreader is the program of choice. " 

-Stephen ICimmel in Creative Computing, 3/82 
"Anyone involved with word processing in any- 
way, whether writing manuals, letters, 
brochures, newscopy, reports, etc. is encouraged 
to gel the excellent program Grammatik. " 

-A. A. Wicks in Computronics, 6/82 

Grammatik and Proofreader are compatible with all 
CP/M, MS-DOS (incl. IBM-PC), and TRS-80 word 
processors. Current CP/M formats: standard 8", 
Northstar, Omikron, Osborne, Apple. Please call/or 
write for details of minimum system sizes and availability 
of additional disk and operating system formats. 
Shipping costs included. Please specify your system 
configuration when ordering. Dealers inquiries 
invited. 

Proofreader Grammatik Bo* 

CP/M, MS-DOS $12a00 $150.00 $250.00 

TRS-80 Model II nfe $89.00 

TRS-S0 Mod. I/Ill $89.00 $59.00 $139.00 

Random House is a registered trademark of Random 
House, Inc. Other registered trademarks: CP/M: Digital 
Research; TRS-80: Tandy Corp.; MS-DOS: Microsoft; 
IBM: IBM; Proofreader, Grammatik: Aspen Software Co. 



Aspen Software Co. 

P.O. Box 339-H Tijeras, NM 87059 
(505) 281-1634 
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StillJSearching? 




What Does 
The Bible 



Where? 



Now you can use computer technology to search the Bible on any subject. With 
THE WORD processor (including a disk copy of the complete KJV Bible text) you 
can create indexes on keywords. Or phrases. Even on concepts. 
A full spectrum of text search functions allows detailed analysis for the real stu- 
dent of the Bible. 

Print or display selected verses and/or 
references for personal study or Bible 

classes. Build your own computerized pfOCGSSOT «fcicfn95* 

library of research material. 



THE WORD 

$159. s 



Bible Research Systems • 8804 Wildridge Drive • Austin, Texas 78759 • (512) 346-2181 

or call Your Local Dealer 
Requires 48K, 1 disk drive, APPLE or TRS-80 * Plus $2.50 postage/handling 

APPLE is a trademark of APPLE Computer, inc. TRS-80 is a trademark of Tandy Corp. 



LETTERS TO THE EDITOR 

continued from page 9 

in the command. Any program that 

needs to close one file while leaving 

others will not work under TRSDOS 

1.3. 

Peter Dyson 
510 Rutgers 

Swarthmore, Pennsylvania 19081 

Misinformed Merge 

We received a mountain of replies 
to a statement in the August issue. 
Mr. William Byberg of Salem, New 
Hampshire, wrote to ask whether we 
had ever heard of a method of merging 
programs loaded from cassette. We 
said "No". We were wrong. We rarely, 
if ever, use cassette systems here in 
the office, but we should have re- 
membered that we SELL a cassette 
merge program! Here's a few of the 
letters on this and other subjects: 

I assume that you received several 
dozen letters about the statement 



you made to Mr. Byberg, since I, for 
one, purchased my merge program 
from Computronics. It is, of course, 
Re-Model/Pro-Load from Racet 
Computes. 

In addition to that, for Model I 
users in your October 1979 issue, 
you published a renumbering program 
the first three steps of which made a 
good merge program. For those turning 
back to that program: line 20310 
needs a colon in it. 

Since very little is said about us 
poor but happy tape users anymore, I 
would like to pass on a couple of 
short cuts that made me quit thinking 
of disks for a while yet. 

I found that it was not necessary to 
bulk erase tapes to reuse them, all 
that is necessary is to have an erased 
portion to start the CSAVE. The Radio 
Shack recorder does about as good a 
job of erasing as the bulk erasers. By 
simply recording a small section at 
the beginning of the tape at no 
volume, the job is done. The recorder 
will take care of the rest of it if you 
start your CSAVE in this blank space. 



Rather than keep pulling plugs and 
turning down the volume, I installed 
a toggle switch in the tape recorder 
which overrides the remote control. I 
also cut the wire leading to the built- 
in Microphone. The switch saves a lot 
of time and makes it easier to put a 
space between programs on the same 
tape. 

One night when I had more than 
an hour to kill waiting for a data tape 
to load, I remembered what Dr. Howe 
said when he answered complaints 
about long data tapes for his data 
base program. In the February 1980 
issue I re-read the article and started 
to work, only going much further with 
the same method. 

The results were dramatic, to say 
the least. The very same hour-long 
data tape was taped off in 3 minutes. 

For you non-believers, here are 2 
lines for the data base program. As 
written, it limits your number of fields 
to 10. But it will tape a mailing list of 
100, using all 10 fields, in 5 minutes. 

510 INPUT#-1,NI,NF,D(0),D(1),D(2),D(3), 

D(4),D(5),D(6),D(7),D(8),0(9),AT(JB)« 

AT(i) ,AT(2) , AT(3) ,AT(4) ,AT(5) ,AT(6) , 

AT(7),AT(8),AT(9) 

520 FOR J = TO NI:INPUT#4,A(0,J), 

A(1,J) ,A(2,J) ,A(3, J) ,A(4«J),A(5,J) , 

A(6.J),A(7,J) I A(8,J),A(9 I J),X(0,J). 

X(1,J),X(2,J),X(3,J),X(4,J),X(5,J), 
X(6,J),X(7,J),X(8,J),X(9,J):NEXT J: 
GOTO' 410 

If you would like to change your 
tape routine without re-keying all the 
data, change only the PRINT#-1 rou- 
tine. Load the data using the old 
input routine, then save it to a new 
tape, which will be done by your new 
save routine. Then you can change 
your input routine and you have 
saved all that typing. 

I have tried not to go into detail to 
make this short, but I think that most 
readers can tell by example what I 
have done. 

George K. Snell 

Rt. 1, Box 75 

Honor, Michigan 49640 

I just received the August issue of 
Computronics, and read William 
Byberg's letter requesting a cassette 
merge for your tape drive Model III. 

I've included the BASIC listing of a 
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merge that I have used successfully 
for a year now, and found it to be 
very handy. The program was publish- 
ed in the Radio Shack Newsletter 
dated September, 1981, on page 8, 
and was written by David Lemley of 
Savannah, Georgia. 

Although the Memory is protected 
at 32594 for a Model I 16K machine, 
it appears to be fully relocatable, and 
you shouldn't have any trouble run- 
ning it on your Model III. 

1 ' BASIC MERGE PROGRAM 

2 ' ENTER 32594 FOR HEM SIZE ON POWER-UP 
10 FOR X = 32595 TO 32712 

20 READ Y:P0KE X, Y 

30 NEXT 

40 DATA 221,42,249,84,221,43,221,43,221, 

43,221,43,175,205,18,2,205,1511,2,8,4,225, 

53,2,16,251,2)35,53,2,221,119,2,183,32 

50 DATA 8, 58, 63,6^,238, 10, 50, 63, 60, 175, 

221, 182 J, 221, 182, 1,221, 182, 2, 221, 35, 32, 

22,5,205,248,1,42,249,64,229,221,225,17, 

235,66 

60 DATA 237,82,229,209,221,43,221,43, 

221,110,0,221,102,1,174,124,181,40,13, 

175,25,229,221,117,0,221,116,1,221,225, 

24,232,221 

70 DATA 229,225,35,35,34,249,64,34,251, 

64,34,253,64,195,25,26 

80 POKE 16526, 83: POKE 16527,127 

90 NEW 

After you've keyed in the merge 
program in and saved it to tape, 
power up again, and set your MEM 
size. Then load the merge program 
like any other BASIC program. 

After a successful load, type "RUN" 
and the screen will clear for a few 
seconds while the merge pokes itself 
into memory. Once this is done, the 
computer will return to the "READY" 
prompt. 

Now you're all set to put it to 
work. Put your first BASIC program in 
the cassette, and ready it to load. But 
don't type "CLOAD". Type 
A=USR(0). This will activate the 
cassette recorder, and you will see 
the asterisks flash in the upper right 
corner of your screen just as if you 
were "CLOADing" a tape. When the 
program is loaded, you'll get the 
usual "READY", and you're now set 
to begin loading the second BASIC 
program. Again, don't type "CLOAD", 
instead activate the tape recorder 

continued on page 12 
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LEARNING TRS-80 BASIC starts where the Radio Shack® 
getting started manuals end, fulfilling the needs of 
elementary and intermediate level users. If you own or 
have access to a Model I, 11/18, or III, our 544 page BASIC 
book is a necessity. 

IT'S SIMPLE 

We receive testimonials every day commenting on the 

simplicity of this book. 

• "very well organized... careful step-by-slep progression" 
— R.G., Oxnard, CA 

• "extremely logical progression and excellent explanations" 
— J.S., Pacifica, CA 

• "easy reading style"— J. B., St. Loyis Park, WN 

In fact we think it is so simple that.... 
WE GUARANTEE IT 




Call and order today. (800) 854-6505 our 24 hour order hot line 

(714) 588-0998 our Calif. (8am-5pm) order line 

I Please send me LEARNING TRS-80 BASIC on a 15 day FREE 
examination. At the end of that time, I will send payment, plus 

■ postage and handling, or return the book and owe nothing. On 
1 all prepaid orders, Visa or MasterCard charges, publisher pays 
| postage and handling, 3end $19.95 only (Calif, residents add 
• 6%) — same return guarantee. Offer good in USA only. 

■ Payment must accompany orders from P.O. Box numbers. 
I Name of individual ordering must be filled in. 

1 

I NAME 



| ADDRESS 

1 CiTY/STATE/ZIP 

I LI CHECK ■'■■ VISA 

1 ENCLOSED ACCOUNT* 




MASTERCARD 



mm 

EXPIRATION DATE 




COMPUSOFT* 

PUBLISHING 



SIGNATURE 



^^^- P.O. Box 19689 Dept.M San Diego, CA 92119 

CompuSoft Books am available at your local computer and book stores. Allow 4 to 8 weeks for delivery. 
TRS-80 and Radio Shack are registered Trademarks of Tandy Corporation 
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Flli/Tlllk announces two great new 
machine language arcade games w/sound 
for TRS-80 MOD i or III, disc or tape 




You're 8 rabbit trying to set to your cove! Cross 
highways and rivers-dodge moving cars and trucks-jump 
from boat to boat - an incredible journey. Gets harder 
and harder and. . . .High scores saved on disc version. 




Play fast paced indoor soccer against a 
friend or the computer. Dribble, pass, steal the 
ball, use the boards-control the whole team!! 
When you're done, lay down-exhausted. 



mV Ttk 

po aox to? 

SOUTH«Vi , l- 
PI MM A 1898 



* Specify Mod I or III. disc (32) 

or tape (18k) 

* Add $2.00 postage and handling 

* Phone or mall / jfe & SB accepted 
4f Dealers inquiries welcome 

* Pa. residents add 6% sales tax 



LETTERS TO THE EDITOR 
continued from page 11 
with A=USR(0) and the second pro- 
gram will load very nicely. 

Obviously, you want your first 
BASIC program to have line numbers 
lower than those of the second pro- 
gram, and if you don't have Radio 
Shack's "RENUM" program, I suggest 
you pic+ one up (catalog # 26-2004, 
about $10 on tape). 

Without RENUM, you'll end up re- 
typing the line numbers on so many 
programs that the advantage of the 
Merge program will be lost. 

That's it. Hope I've been able to 
help, and enjoy your "Urge to Merge". 

Buddy King 

201 Weber Street 

South Bend, Indiana 46637 

In the August 1982 issue of Com- 
putronics, you indicate that you are 
not aware of any Merge programs for 
cassette systems. I am surprised at 
that. I am not sure where I got it 
from, but I have been using a merge 
procedure for a long time. Essentially 
what it does is to set the start pointer 
to the end of the program in memory. 



POKE 16548,233: 



Then you load the program to be 
merged, and finally reset the start 
pointer back to where it was— the 
beginning of usable memory. The line 
numbers of the program to be merged 
must be higher than those of the 
program already in memory. The pro- 
cedure is as follows, with instructions 
typed in at the BASIC command 
mode: 

1. CLOAD the first program. 

2. PRINT PEEK(16633), PEEK(16634) 

3. Call the first number returned X, 
the second, Y. 

4. If X is greater than or equal to 2, 
then POKE 16548,{X-2):POKE 16549,Y 

5. If X = 1 or zero, then POKE 
16548, (X+254):POKE 16549,(Y-1) 

6 CLOAD the program to be 
merged 

7. On Model I POKE 16548,233: 
POKE 16549,66 

On Model III 
POKE 16549,67 

8. LIST, SAVE, or RUN the program 
Raymond A. Somers 

Professor of Chemistry 
University of Wisconsin 
Stevens Point, Wl 54481 

Many readers pointed out the above 
method for cassette merging, which 
was printed in the July 7979 issue of 
the Radio Shack Microcomputer 
Newsletter. 

Model II Screen Printing 

Regarding "Program Conversion 
(Part VII)", on SYSTEM "SCREEN" 
(issue 48, August 1982). For the 
Model II, if the CRT display is linear, 
a good substitute for the statement 
SYSTEM "SCREEN", is to use SYSTEM 
"DUAL ON" and SYSTEM "DUAL 
OFF", which may be initiated from a 
BASIC program by PRINT CHR$(14) 
(for "ON"), and PRINT CHR$(15) 
(for "OFF"). No message will be put 
on the screen. 

100 PRINT § L(15,5),"H & E COMPUTRONICS" 

' SCREEN DISPLAY 
200 LINE INPUT "<LP>RINT /CONTINUE/" ;A$ 

' PRINT OPTION 
300 PRINT g L(16,0),CHR$(23) 

' CLEAR LINE NOT TO BE PRINTED 
400 GOSUB 7000 ' TEST INPUT 
500 IF LP$="0N" THEN GOTO 100 

' TO PRINT RERUN DISPLAY 
600 ' REST OF PROGRAM 
7000 LP$="0FF" 

' TO INITIATE "DUAL OFF" AFTER INPUT 



7010 IF A$="LP" THEN LP$="0N" 
' TO INITIATE "DUAL ON" FOR PRINT 

7020 IF LP$=*'QFF" THEN 7040 

7030 PRINT CHR$(14);: RETURN 
' SWITCHES TO "DUAL ON" 

7040 PRINT CHR$U5);: RETURN 
* SWITCHES TO "DUAL OFF" 

A. O. Wright 

51 South Street 

Rhinebeck, New York 12572 

Richard Kaplan's reply: 

Mr. Wright's observation is, indeed, 
correct; however I cannot see how 
the DUAL function can be a "substi- 
tute" for the SYSTEM "SCREEN" com- 
mand. 

The DUAL command can ony out- 
put information to the printer as it is 
displayed on the screen. SYSTEM 
"SCREEN", on the other hand can 
output an entire screen at once. The 
only disadvantage of SYSTEM 
"SCREEN" is that it can only be 
executed from within a program or as 
an immediate command, i.e., one 
cannot execute this function while a 
program is running unless it is actually 
written into the program. Mr. Wright's 
technique does not resolve this dif- 
ficulty. Although his program does ask 
if line printer output is desired, the 
same effect could be achieved by 
writing a SYSTEM "SCREEN" command 
into the program. Actually, these two 
methods could serve separate pur- 
poses: use SYSTEM "SCREEN" to get a 
printout of just a selected screen 
display from your program; and use 
SYSTEM "DUAL ON/OFF" to get a 
permanent line-by-line record of ALL 
screen outputs in the program. 



H & E Cpmputronics welcomes let- 
ters on any subject If you wish,a 
personal reply, please enclose a self- 
addressed, stamped envelope. 

H & E Computronics also welcomes 
readers to submit programs, articles, 
or reviews for publication. Please ad- 
dress correspondence to: 

The Editor 

H & E Computronics 

50 North Pascack Road 

Spring Valley, New York 10977 

Please submit programs (and articles, 
if prepared on a word processor) on 
media (cassettes or diskettes). Also 
please indicate the system it was 
prepared on, and include any neces- 
sary instructions. M 
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BeaLin Corp. offers you 




TRAX-SW 

RETAIN YOUR TRS-80 BLOCK GRAPHICS CAPABILITY WHILE ADDING ALL OF THE 
FEATURES OF **GRAFTRAX-PLUS SUCH AS UNDERLINE MODE, SUBSCRIPT/ 
SUPERSCRIPT, LINE DRAWING GRAPHICS, ETC. PLUG IN BOARD SUPPLIED 
WITH OR WITHOUT **GRAFTRAX-PLUS. 

(Not available for serial MX-80 Printers.) 

TRAX-SW ........($49.95) A W PAGE-IT 

TRAX-SW WITH GRAFTRAX-PLUS ...($109.95) M W <tOO QC 

GRAFTRAX-PLUS ($69.95) J f SfrZ*.yO 

GRAFTRAX80 ($65.00) /^W A disk utility that 

'Trademark of Tandy Corp, A'WJW Prints basic programs 

'"Trademark of Epson ^CV^5^r . .1 1 li 

jr# **^ in easily readable 
PRINTER CABLE FOR EPSON PRINTERS iSflr format 

10 FEET ($24.95) J~^W * COMPATIBLE WITH 

TEAC DISK DRIVES 40TK/SS/DD . . ($250.00) ifcy systIms PERATING 

(oneyearwarranfy) iWf • HIGHLIGHTS REM 

PRINTER SWITCH ASF statements 

Mod I, III $79.95 Mod II, XVI $89.95 JiSW * INDENTS CODE "™ LINE 

Switch between two printers, use your computer to pro- JfJ*W ^S^KaStc^ 
duce draft copies on one printer. Then make final copies M ^^W * W^ 1 ™-'" 15 BAIsU - LUUt 
on letter quality printer without switching cables. JEKW * MENU DRIVEN — EASY TO USE 

A%W * DOUBLE SPACE OPTION 

REAL WORLD INTERFACE Mpiw • supports special options of 

The Card Electronics REAL WORLD INTER- VEmF 15PRINTERS 

FACE system is for the control and monitoring fm^W INVOICE PROGRAM $39.95 

of machines and real world systems (robotics, Atkf^r PURCHASE ORDER $39.95 

heating air conditioning, lighting motors, Jfvjf STATEMENT PROGRAM $39^95 

solenoids, etc.). With the use of A.C. and AZmW /or m/ ai i a t:r%o £qo qc\ 

D.C. Solid State Relays and status indi- J5Kt * 5W.W J 

eating devices, this system will permit JKf ^fUb^g^ban 90504 thn, 5 

TRS-80 Users to Connect their COm- MJ2m '"Trademark ojApparat Inc. 

^ZmtZtr^ttREAL ASF CHECK80........... .$49.95 

WORLD INTERFACE idea! for ^AttSr ^ se i ' our com P uter to produce invoices, purchase orders, state- 
remote control and monitoring ^fl ^f ments, and print checks with check record maintained on disk. 

24 Outputs, 32 Inputs. -s A W n ■ j. • j ^ n x_ *• j- i 

# J ^r Pnnt invoices and store all transactions on disk. 

£° Jl USE OUR DATA LINE TO BROWSE THROUGH THE MANY ITEMS WE 

>£ M W HAVE AVAILABLE. YOU MAY PLACE ORDERS OR HAVE SPECIFIC QUES- 
<F M W TIONS ANSWERED. DATA LINE FORMAT IS 300 BAUD, 7 BIT, NO PARITY. 
4%° M W SATISFY ALL OF YOUR COMPUTING NEEDS, COMPLETE SYSTEMS, DISK 
x° M W DRIVES, PRINTERS, EPSON RIBBONS & REPACKS, PAPER PRODUCTS, PLUS 
^? A W MUCH MORE. CALL OR WRITE FOR FREE CATALOG. 
, ^ ^k ^r Software shipping and handling - $3.50 
;& A V PHONE VOICE (301) 490-2477 MODEM (301) 730-2229 
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PROGRAM PREVIEWS 

A. A. Wicks 
This Month- E/Z SCREEN 



One of the most irksome tasks a programmer faces, and 
frequently a difficult one, is the preparation of programs 
that utilize screen interaction by the user. 

Typically, a program of this type would be one that 
displays blocks of type as "Name — Address — Social 
Security Number — etc.," and awaits operator input to fill 
in this type of data. Because of the sometimes varied 
nature of screen format, such programs often require that 
the "query line" be placed anywhere on the screen — not 
just line-by-line justified-left. This usually means many 
"print-at" statements, for one thing. And if the hard copy 
printout is to follow the screen display, this must be 
considered. All of this entails the tricky programming work 
referred to, and much of this can be deadly repetitive, not 
conducive to "go-subs," and error-prone, requiring a great 
amount of time for troubleshooting. 

SOURCELiB Systems has now addressed these problems 
for the programmer in their programmer's program — E/Z 
SCREEN, and have provided a commendable worksaver. 
My first impression from their advertising was that this was 
a user program for graphics displays and operation. This 
was erroneous, as a detailed study of their wordy advertise- 
ment disclosed. E/Z SCREEN is definitely a screen design 
and code generation tool. Much of the coding required to 
get data into and out of a program has been eliminated for 
the programmer. The user also benefits from E/Z SCREEN 
techniques, because input errors made prior to current 
input may be corrected without restarting sometimes 
complex and difficult screen entry data. 

Furthermore, the programmer may prepare screen dis- 
plays that are professional in appearance, at the same time 
as they may be complex in their utility. The screen may be 
formatted in any way, such as in the manner that a word 
processor allows changes and entries. E/Z SCREEN considers 
all data on the video display as a single logical unit called a 
"screen." The screen is composed of literals and fields. A 
literal is a fixed text string that appears on the screen 
exactly as it is keyed in, and is used to convey non-variable 
information to the user. Literals are ommonly used to 
identify the fields on a screen as well as the screen itself. 
Literals may indicate user options on a menu-type screen, 
or list information on a "help" screen. 

During output the contents of a named variable are 
moved to the screen according to the mask specified for 
the field in the- definition program. During input the cursor 
is positioned to indicate where characters will be placed. 
The cursor may be moved from field to field using various 
control keys. The cursor is non-destructive, that is, it may 
be placed on characters, tabbed, etc. without altering data 
under it. Overtyping is therefore possible. All keys repeat if 
held down continuously. 

Once the format has been established to your satisfaction, 
E/Z SCREEN will immediately generate all the BASIC 
subroutines required to process these screens into your 
program. It should be noted here that when I speak of the 
"programmer" and the program being produced, I do not 



mean that the user of E/Z SCREEN need be a professional 
programmer. Far from it, E/Z SCREEN may be used by 
practically anyone with a knowledge of writing simple 
programs in BASIC — although the person creating complex 
programs is going to gain the greatest utility from this 
unusual program. 

You may create as many as 12 different screen displays 
in a single program, with up to 100 fields per screen, at the 
same time using up to nine different functions if desired. 
One GOSUB establishes the communication between the 
created program and the E/Z SCREEN code. 

One feature of this program that I like is that no USR 
calls are required for screen processing. Granted, this may 
slow down operation, but the complexity of coding these 
functions is eliminated. Some of the other attractive 
features are the writing of literals to the screen, the writing 
of data from variables to the screen, and the reading of 
data from the screen with the keyboard under program 
control. Also, all fields from the screen may be read into 
your variables without operator intervention. Input and 
output fields in memory and on screen may be cleared and 
screen messages may be displayed, with a wait-for-reply 
format. 

Some of the user operations that are available are a non- 
destructive cursor, character insert and delete, overtype, 
and complete cursor control using all arrow keys. Six tab 
functions are possible. Numeric validity checks, may be 
made, as well as numeric formatting with extended masks. 
Programmers will find useful functions such as the 
centering of literals and fields on the line, changing of field 
lengths, replication of literals, fields or lines, and the 
automatic arraying of fields. The cursor character may be 
specified by a simple command. A Cross Reference utility 
permits the printing of the screen layout and its attributes, 
and also prints a field attribute summary. 

Making use of E/Z SCREEN is not extremely difficult, but 
as with any program offering so many features, it is 
necessary to thoroughly understand what you are setting 
out to accomplish, and how E/Z SCREEN will do it for you. 
This is best approached by reading the manual from front 
to back, at least once; then studying it while working with 
the sample exercise provided. As the manual succinctly 
states, "...Section 3 (the tutorial) is not something to read 
— it is something to do...You must be sitting in front of your 
machine, doing the examples, while following the text in 
the manual." Once familiar with E/Z SCREEN, you will feel 
confident in working with it with your own BASIC program. 
Because the manual is such an essential part of working 
with E/Z SCREEN, I am going to digress from my usual 
review sequence and evaluate it now. This manual comprises 
118 pages of loose-leaf 8 1/2 by 11 inch material in a 
three-ring hard cover binder. Printing is by offset from 
typewriter or impact printer, and is clear and legible in 10- 
point size. Spelling and typographical errors are minimal. An 
addendum sheet explains how to make a backup of the 
original disk, utilizing either TRSDOS 2.3 or NEWDOS 2.1. 
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"I believe Super Utility or Super 
Utility Plus should be present 
ot every serious TRS-80 disk 
installation." 



(We didn't say this; Paul Wiener did in 80 Micro- 
computing, Jan. '81. . .hut we sure agree with him!) 



Get Yourself a "Super" Utility f rout 
the most powerful software vendor. 



NOW AT SPECIAL PRICES: 



Super Uftltry* 

• Mod I. single density only 

• 24K machine language 

• Zop 

• Purge , 

• Format 

• Speciol format 

• Format without arose 

• Disk copy 

• Speciol disk copy 

• Tape copy 

• Disk repair 

• Memory utility 

• Protected disk 

• MORE 

• S29.95 

(Reduced from S4995) 

•While they last 1 



Quick Fix* 

• Mod I, single density onjy 
« Zap 

• Purge 

• Format 

• Format without erase 

• Copy 

m Disk repair 

• Recover killed files 

• Memory utility 

• TR5 DOS. New DOS + (2 1) only 

• MORE 

• $19.95 

(Reduced from S34.95) 

•While they last 1 



Dealers! Place your orders now at this 
special price! 




SupwUrilJfy Wus 

You heard about it! You read about 
it (80 Microcomputing). Now get the 
"codillac" at a special price! 
Compatible with Mod I. and Mod III, 
and oil the current operating systems' 
Copy files from any DOS to any DOS, 
Mod I or III. without converting! 



Zap 

Purge 

Formor 

Special Format 

Format without erase 

Disk copy 

Special disk copy 

Tope copy 

Disk repoir 

Memory 

File Utility Configurable System 

MUCH MORE 

Mod I b Mod III on Some Disk 



$74.95 

(Now includes backup) 




MEHSa'FT 



11500 STEMMONS EXPRESSWAY, SUITE 125 

DALLAS, TEXAS 75229 
PHONE (214) 484-2976 
PHONE (800) 527-7432 



DEALER INQUIRIES INVITED 

POWERSOFT IS A PIYISIOM Of BHECZE/OSO, IMC, 



msm* 



Shipping is included in sales to Canada S, U S 

FOREIGN ORDERS ADD $10 



Model in users will use the CONVERT utility. 

The largest part of the manual is a tutorial, already 
mentioned, of 35 pages and is very explicit. As stated, it 
should be read and worked with closely, and will probably 
appear tedious due to the length and detail of the 
instructions. 1 discussed this approach with the author, who 
stated that he felt that he wanted to provide every possible 
piece of information to the user, together with detailed 
guidance, so that there would be no questions in the mind 
of the person working with E/Z SCREEN. I certainly do not 
fault this approach — too many times have I struggled with 
a program while trying to determine exactly what the 
author of the manual really meant. It is far better to have 
too much instruction than too little. As most of the 
instruction is devoted to the preparation of a "Personal 
Telephone and Address Directory," it does have an 
ultimate usefulness too, and should permit the user to 
develop other data programs quickly. 

The next largest portion of the manual relates to the 
"Screen Format Program" of E/Z SCREEN, which allows the 
programmer to actually change and create screen definitions 
that are used to generate screen-related BASIC code for 
programs. The remaining Chapters discuss the Cross 
Reference Utility, interfacing with BASIC programs, error 
messages and their cause. There are many error and report 
messages — errors and changes should be no problem. 
Information is also provided regarding the various screen 
formats of E/Z SCREEN. 

Writing style is informal, but free of quips and sundry 
asides, which certainly permits it to be rated higher in my 
estimation than many publications. Overall, the manual 
rates an 8, on a scale of 1 to 10'. 

Once you feel familiar with the operating features of E/Z 
SCREEN, you will be anxious to design your own screens 
for some particular program. I know that I was, and I was 
not disappointed. The example Phone Directory is an easy 
one. How about a multi-field screen layout for a complete 
personnel medical history sheet? Although this will take 
more time than the former, it is just as easy. If you decide 
that you wish to change your fields, or have them in some 
specific sorted order after you have already completed a 
layout, the Commands available permit this. More about 
the Commands in a moment. 

You will start your program development by designing 
your screens using the Screen Format program. You will 
probably have some idea of the proposed layout, or 
perhaps have it firmly done beforehand on a paper grid, 
just so that you will not forget anything. One advantage 
here is that E/Z SCREEN reports, as you move the cursor 
around the screen, the "print at" position, by showing a 
question mark and symbol followed by a number at the left 
side of line 16. The number, from through 959, 
represents the screen position under the cursor at the 
moment. When you have completed the layout to your 
satisfaction, you "save" the layout using a file name plus 
/EZS. 

When all screens required have been completed (it 
could be just one, of course), the Code Generation 
program is used for that purpose. This code will do the 
screen-oriented input/output for the program. When the 
generated code is complete, it too may be saved on disk, 
with the file name plus /EZC extension. You may then add 
your own code, either through the keyboard entry method 



or by a MERGE. The /EZS and /EZM files are used by the 
Cross Reference program to produce screen and program 
documentation (the /EZM having been a saved file of 
screen names produced by the Code Generation program). 

The E/Z SCREEN generated code will occupy Lines 5 
through 999. Your program should be written to begin at 
Line 1000. All communication between your program and 
E/Z SCREEN is accomplished by a simple GOSUB to Line 
900, which takes it from there. The functions to be 
performed are contained in a string OB$. Control returns to 
the program when all functions in OB$ have been 
completed. The Screen Format Commands, which I said 
we would return to, are single-letter mnemonic ("cursor" is 
"K" as the only exception). There are many, which 
precludes discussing all of them here, but a few examples 
will suffice. For instance, <L>ENGTH is used to change the 
length of a field (remember, this could be a field you 
formatted many lines ago, or at a previous programming 
session). The cursor is placed on the desired field and the 
above letter plus ENTER is completed. The Field Name 
appears, followed by LEN=nn NEW LEN=nn SHIFT=Y. You 
merely enter the desired numerical character length (maxi- 
mum of 64 alpha or 24 numeric), and accept or reject the 
shift default Y. SHIFT=Y will cause all data to the right of 
the field on that line to be shifted left or right by the same 
number of positions added or deleted. Making SHIFT=N 
will shorten or lengthen the field without repositioning 
data. 

Another Command, <N>AME permits changing the 
name, type, autoskip attribute, or description of a field. The 
<K> command will define the cursor character for the 
screen. This Command too, is easy to perform, as are all of 
the Commands, for that matter. Upon entry, Line 16 will 
display: CURSOR (ASCII) ==> cursor value. 

With the Model I, the ASCII cursor value (129-191) is 
entered; 129-255 is used for the Model III. The cursor will 
immediately change, and remain. The cursor selected will 
also be used on the generated screen. 

E/Z SCREEN is a program with a potential that may be 
easily underestimated until you begin to use it. Programmers 
and TRS-80 users alike will find its unusual usefulness of 
real value, and its cost is low enough to make it a very 
worthwhile investment I can recommend it without hesitation. 

E/Z SCREEN — SOURCELiB Systems, 1670 Pershing 
Street, Valley Stream, NY 11580. For TRS-80 Models I and 
III, 48 K, with minimum of two disk drives — $149.95. 



Readers will be interested in a new catalog from Prosoft, 
producers of the eminent Newscript word processing 
program, and utility programs. This well prepared and 
printed catalog describes in great detail the upgraded 
Newscript — version 7.0, which has a number of enhance- 
ments not previously available. (I have updated my 
Newscript to this latest version, and consider the improve- 
ments as outstanding.) Newscript emphasizes printer com- 
patibility in addition to being an excellent word processor, 
and now supports every printer available from many 
manufacturers. Present owners of Newscript 6.0, 6.1, and 
6.2 may upgrade for a modest fee. The other programs from 
Prosoft are also described completely with all of the details 
one could ask. ■ 
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ARRAY OF HOPE FOR BASIC PROGRAMMERS (PART 2) 

Arne Rohde 



5. Searching Techniques 
5.1 Sequential Searching 

Sequential searching of an array consists of starting a 
search at one end of the array and continuing with each 
element until the desired element is found. If ail elements 
are equally likely to be required, the search routine will 
require a compare with half the elements in the array on 
average. This makes the search routine slow, especially for 
arrays with more than a small number of elements, perhaps 
20 or so. For the following search algorithms we will assume 
that we are searching the array A, which contains AE 
elements. The required key is located in AR. A and AR can 
obviously be defined with any variable type, and AE should 
be defined as integer for fastest processing, as should all the 
subscripts which will be used. This can be done with the 
DEFINT statement, or by appending a &-sign onto the 
variable names. 

5.1.1 Unlinked Arrays 

The sequential search can be described with the following 
algorithm: 

100 I = 

110 IF I < AE THEN IF A(I) <> AR THEN 1=1+1: GOTO 110 

120 IF I = AE PRINT "Key not found" 

ELSE PRINT "Key found in position:"; I 

There are several things to note about this code. The first 
is that the search starts with the first element in the array, 
and stops as soon as the required element is found, or the 
index I has reached the number of elements in the array. The 
first compare in line 110 checks for I less than AE since AE is 
the actual number of elements, and this value may be zero. 
The sequence for the two IF statements in line 110 is 
necessary to avoid referring to an element outside the limits 
of the array, with a resulting subscript out of range error. If 
the array A was defined with DIM A(20) then the maximum 
value of AE would be 21, since 21 elements can be 
contained in the array. Any reference to A(21) would, 
however, result in an error. The variable AE can also be 
thought of as a pointer to the next position in the array where 
a new element can be inserted. 

A FOR .. NEXT statement could have been used to control 
the search loop, but this would either result in a GOTO out 
of the FOR .. NEXT loop, or destroying the index to terminate 
the loop prematurely if the element is found. If neither of 
these options is desired, then every element of the array 
must be compared. For example: 

100 FOR I = TO AE-1 

110 IF A(I) = AR THEN PRINT "Key found at location:"; I 
120 NEXT I 

which will not print the message for key not found, and 



which will not execute correctly if there are zero elements 
present in the array (the array is empty). To cater for this 
special case, a test would have to be made, and the code 
shown above made conditional. Sometimes a sequential 
search can be simplified if the array is set up so that the 
desired element will always be found. This can be done by 
reserving an extra element in the array, for example element 
zero, where the search key can be stored. In this case AE 
would be the last subscript value which could be used. For 
this search it would be natural to start from the end of the 
array and search with a descending subscript. 

100 A(0) = AR: I = AE 
110 IF A(I) <> AR THEN I = 1-1: GOTO 110 
120 IF I = THEN PRINT "Key not found" 
ELSE PRINT "Key found at location:"; I 

This code has the advantage that the loop is simpler and 
thus faster to execute with only a single IF statement instead 
of two. This code will also be correct if the array is empty, the 
only element which will be examined in this case will be the 
extra one at location zero. The array definition for this 
example defines A with a DIM value equal to the actual 
number of elements which it can contain, for example DIM 
A(20) for an array with up to 20 elements. 

There are other methods which can be used to speed up 
sequential array searches, especially if something is known 
about the distribution of key values in the array, or the 
distribution of the elements being searched for. If, for 
example, 20 per cent of the elements are required in 80 per 
cent of the searches, then these elements should be placed 
where they will be found first. This would be at the start of 
the array for the first method shown, and at the end of the 
array for the last method. Arranging the array data in this 
fashion can speed up the searches dramatically. The 
different key values may not be evenly distributed, but if the 
most likely keys are unknown or if they vary from time to 
time then the array cannot be organised to cater for this. If 
the distribution is very uneven then it may be faster to 
rearrange the array dynamically so that the keys referenced 
most often are moved to one end of the array. This could be 
done by exchanging the element just found with the one 
next to it, for example using the following code 



100 A(0) = AR: I = AE 
110 IF A(I) <> AR THEN 1=1-1: GOTO 110 
120 IF I < AE AND I > THEN A(0) = A(I): 
1=1+1: A(I) = A(0) 



A(I) = A(I+1): 



This would tend to move the keys referenced most often 
towards the upper end of the array, where they will be found 
with the fewest number of compares. For small arrays and for 
even distribution of key values searched for the code will be 
more inefficient, but for very uneven distributions it can save 
time for searches. Note that the index is updated when the 
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elements are exchanged so that it still points to the required 
key. The method can be refined by keeping a count of the 
number of times each key is referenced, and only 
exchanging the two contiguous elements if the reference 
count of the key found is larger than the reference count of 
the following key. This reduces considerably the number of 
exchanges, and can reduce the amount of oscillation which 
can occur if two contiguous keys are referenced alternately. 

in the above examples, the array has been shown with 
only one dimension. The algorithms are, of course, also 
applicable to arrays with two or more dimensions, but for the 
algorithm which exchanges array elements more exchanges 
would be required if the array had more than one dimension. 
This would make the method less attractive, as would the 
case where the array consists of string keys since it would 
increase the number of string reorganizations required. To 
test the savings possible by moving the most used keys to 
one end of the array, a test was run with a two dimensional 
array, consisting of a sequential key value from 1 to 25 and a 
reference count to control the exchanges. The search key 
was unevenly distributed with almost half the key values 
unreferenced. It was calculated with the function 
RND(5)*RND(5) so all values would be found in the array. 

The times recorded for the searches were very interesting. 
The times for the first 200 searches were almost identical 
using element exchanges and using a direct sequential 
search without exchanges. This was about 57 seconds, 
including time to fill the array and display the values 
searched for. The next 200 searches took almost the same 
time without exchanges (within a second or two), but using 
exchanges the time was reduced to about 39 seconds. Using 
exchanges the time is eventually reduced to 31 seconds for 
searching with 200 key values. The total time for 800 
searches was 158 seconds using exchanges, and 223 
seconds without exchanges. This represents a reduction of 
almost 30 per cent by using extra processing time to 
rearrange the array elements. It also indicates that the 
number of searches should be about 1 times the number of 
elements in the table before the break-even point is reached 
for a distribution similar to the one used here. For other 
distributions the break even point would be different, but 
the method could be worth trying for some applications, it 
has the added advantage that it is easy to implement in 
assembly language as well as in Basic. 

Sometimes the array elements cannot be rearranged even 
if it could be advantageous to do so, but even in this 
situation the distribution of search keys can be exploited. 
Quite often the same key will be referenced several times in 
succession. If a customer number is entered for each item 
sold, and the number is to be found in an array, then the 
same customer number will be entered several times if the 
customer buys several items at the same time. Before 
searching through the array a quick check could be made to 
see if the search key was the same as the one used in the 
previous search. This would obviously mean having to store 
the subscript after each search, possibly only if the key is 
found in the array, or storing both the search key and the 
subscript. This could be done as follows: 



10 AL = -999: REM Invalid key value 



100 IF AR = AL THEN I = IL: GOTO 140 
110 A(0) = AR: I = AE 
120 IF A(I) <> AR THEN I = 1-1: GOTO 120 
130 IL = I: AL,= AR :REM Store key and subscript 
140 IF I = THEN PRINT "Key not found" 
ELSE PRINT "Key found at location:"; I 

where the stored key value is initially set to an invalid 
value to force a search on the first execution. The "search" 
here will be very fast if the same key value is used two or 
more times in succession, without any rearrangement of the 
array. A similar technique can be used if the array is known to 
be in sequence, but in this case a non-sequential search 
should probably be used. However, linear linked lists can 
only be searched sequentially, and therefore the technique 
could be used for these cases, although it will be shown here 
both for an ordinary array and for a linked list. 

An example of a linked list which is searched using this 
technique is a program in Basic, where each line starts with a 
pointer to the start of the following line. Whenever a GOTO 
or GOSUB is used, the interpreter first checks whether the 
required line number is lower than or equal to the current 
line number. If so the search will start from the beginning of 
the program, otherwise it will start with the beginning of the 
current line. Thus a GOTO to the following line number is 
very fast while a GOTO to the same line number will be 
slower, especially towards the end of a long program. It is 
unfortunate that Microsoft did not use the opportunity to 
make the GOTO to the same line faster, it would have been 
simple to do, and would have made a lot of program loops 
very fast. Perhaps some versions of Basic do test for this, and 
for this reason I have attempted to keep the main loops of 
the algorithms as single lines. The technique for an unlinked 
array can be illustrated with the following code: 

100 IF IL = OR AR > A(IL) THEN I = AE ELSE I = IL 

110 A{0) = AR 

120 IF A(I) <> AR THEN I = I-i: GOTO 120 

130 IL = I 

In this case only the subscript needs to be saved, and it 
need not be initialised since Basic clears the value of all 
numeric data to zero, which is the value expected if the 
previous key was not found. The array is assumed to be in 
ascending sequence with the lowest key value having the 
lowest subscript value. Thus if the new key is larger than the 
previous one then the search has to start again at the end of 
the table, otherwise it can proceed from the point where it 
stopped on the previous iteration. 

5.1.2 Linked Lists 

Linked lists could be used in Basic to allow for a large 
number of insertions without having to move the remainder 
of the array to make room for the new elements. This would 
be useful for text information to avoid having to reorganise 
string memory too often. A linked list for text items would 
require two separate one dimension arrays, one for the links 
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which should be integer values, and one for the text items. 
The link array could be defined as DIM L{100) and the text 
array as DIM T(100). The link array could be initialised to 
contain the value -1 in each element, where -1 is used as an 
invalid pointer value to indicate the end of the list. A pointer 
is usually required to point to the first element in the list. The 
following algorithm could be used to find a particular text 
item TR in the text array. 

10 LS = -1 :REM Empty list 



A binary tree consisting of 7 elements with the key values 
from 1 to 7 could be drawn as follows: 



100 I = LS :REM link start 
110 IF I >= THEN IF T(I) <> TR THEN I 
120 IF I < PRINT "Text not found" 
ELSE PRINT "Text found at position:" 



L(I): GOTO 110 



I 



The values in the first 1 elements of the array L could be 
1, 3, -1, 4, 7, -1, 8, 6, 5, -1 and the value of LS is zero. The 
text array would be referenced in the sequence 0, 1 , 3, 4, 7, 
6, 8, with termination at element 5. This may seem to be a 
complicated sequence, but similar sequences would only 
occur after a number of insertions or deletions from the 
linked list. No text or array elements need to be moved in 
order to insert a new text array element, so this function 
should be fast. 

Several of the array search techniques presented earlier 
could also be used with the linked list, but the technique of 
inserting the required key into the array would be more 
difficult to implement. Some linked lists also use a variable 
which points to the last used element in the list (as in Basic 
which uses this pointer as the start address of the simple 
variables). A list can also be linked in both directions so that 
a search can be made in both descending and ascending 
sequences. This can be useful for sorted lists where the 
sequence of the items can be used to restrict the range of the 
searches. 

5.1.3 Binary Trees 

Binary trees are also a special form of linked lists, and 
since the word binary seems to relate them to computers, it 
has often been stated that they are well suited to computer 
implementation. They are suitable for implementation on 
computers for two reasons. The number of pointers in each 
element is limited to a left pointer and a right pointer, and 
the elements can therefore be of a fixed format, unlike the 
general tree where there may be any number of subordinate 
elements and therefore pointers in each record. The other 
reason is that pointers are easy to implement, and the link 
from one element to the next is simple to follow. All 
elements in a tree can be visited once in what is known as a 
tree traversal, for example if the values in all the elements 
are to be summed. Each element in a tree requires two 
pointers, one to the left node or leaf and one to the right 
node or leaf. By common convention the first or left pointer 
will point to a node with a lower key value, and the second 
or right pointer will point to a node with a higher or equal key 
value. Binary trees are usually drawn in the opposite form 
from real trees with the root element at the top and with the 
branches and leaves pointing downwards. Perhaps binary 
trees originated in the southern hemisphere! 



3 2 1 
2 1-14 
4 2-1-1 



15 6 3 
4-1-1 3 6-15 

5 7-1-1 



The first value is the relative position in the array (from 
to 6), the second is the key value (from 1 to 7), the third is 
the left pointer value and the fourth is the right pointer value. 
Note that the value -1 is used again to indicate the last 
pointer in a sequence. The tree is built so that the left pointer 
will point to an element with a key value lower than the 
value in the current element, and the right pointer will point 
to an element with a higher key value. Again a pointer to the 
root node is required to start the search. This tree is not easy 
to traverse in sequence since a pointer must be stored for 
each new level in the tree in order to find the way back when 
a leaf node is reached. The tree is obviously not stored in the 
manner shown in the diagram since memory is usually linear 
instead of two dimensional. The array element sequence 
would be 

3 2 1 
15 6 3 

2 1-14 

3 6-15 

4 2-1-1 

5 7-1-1 

6 4-1-1 

In this case all elements have been filled, but in practice 
empty spaces would be possible in the list if deletions could 
be made. In order to simplify traversal a number of 
techniques are available for manipulating the pointers. Since 
the range of negative numbers is not required they will often 
be used in the right pointer to point to the next element in 
the tree with a higher key value, after complementing or 
negating the pointer value. In this case zero could be used as 
a pointer terminator, leaving element zero in the array 
unusable since it cannot be directly complemented to yield a 
negative value. If space considerations made it imperative to 
use element zero, then the pointers could be stored as the 
actual value plus 1 (for the positive pointers) , thus being 1 or 
-1 for a pointer to element zero, 2 or -2 for the pointer to 
element 1 , etc. Using normal pointers our tree would get the 
following appearance: 



13 3 2 



3 10 5 
5 2 



7 4 



2 5 
-2 



7 4 
4 6 6 
6 7 



To traverse the tree, the left branch is followed from the 
root node until the left pointer is zero. This is the element 
with the lowest key value and thus the actual starting point of 
the traversal. From here left branches are followed if a node 
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FOUR BASIC PROGRAMS 



Cordon Speer 



KALEIDOSCOPE 

I have always wanted to write a program like this, but 
one of our regular readers sent one that is super. If you 
aren't old enough to remember a kaleidoscope you just 
missed out, you probably can't buy them any more. The 
images drawn by this one resemble the floor plans for old 
European cathedrals, or perhaps a Rorschach test for 
engineers, or patterns for Indian rugs, or styrofoam packing 
material for sewing machine boxes. Try it yourself and see 
what you see in them. Continuous graphics programs 
always make an interesting demonstration when there are 
people passing by. Use them in store windows, or 
showcases, or on your desk. 

Thanks to the Zeliff's for the program. Steve is a teacher 
at the high school in Minden, Nebraska. 

100 'KALEIDOS 

110 CLS :F0R 0ELAY=1 TO 1000: NEXT 

120 A=RND(5?)+2 

130 8=RND(11)+17 

140 L=INT(RND(59-A))+4 

150 W=INT(RND(28-B))+2 

160 FOR Y=B+W TO B STEP -1 

170 X=A+L 

180 GOSUB 380 

190 X=X+1 

200 GOSUB 380 

210 NEXT Y 

220 FOR X=A+L-1 TO A+l STEP -1 

230 GOSUB 380 

240 NEXT X 

250 FOR Y=B TO B+W 

260 X=A 

270 GOSUB 380 

280 X=X-1 

290 GOSUB 380 

300 NEXT Y 

310 FOR X=A+1 TO A+L-l 

320 GOSUB 380 

330 NEXT X 

340 N=N+1 

350 IF N=10 THEN S=l 

360 IF N=20 THEN RUN 

370 GOTO 120 

380 ' SUBROUTINES 

390 IF S=0 THEN 450 

400 RESET (X,Y) 

410 RESET(127-X,Y) 

420 RESET(X,51-Y) 

430 RESET(127-X,51-Y) 

440 RETURN 

450 SET(X.Y) 

460 SET(127-X,Y) 

470 SET(X,51-Y) 

480 SET(127-X,51-Y) 

490 RETURN 

500 'STEVE AND SANDY ZELIFF 

510 'MINDEN, NEBRASKA 68959 



GASCOST and PERMiLE 



As the prices of motor fuel fluctuate and we all consider 
whether or not»f.o trade in the old buggy, it is helpful to 
have some numbers at hand to help make the big decision. 
These two programs, excellent examples of charts, are for 
just that purpose. If you have a printer, change all the 
PRINTs to LPRINTS, or use your screen dump if you have 
one. Otherwise just read the video display. GASCOST gives 
the total cost of gasoline for a year of driving. Note that you 
save a lot more moving up from 15 MPG to 20 MPG than 
you do from 40 MPG to 50 MPG. In general the more fuel 
efficient the cars get, the less you stand to save by 
improving them. PERMILE gives the gasoline cost per mile 
driven, which is generally less than the depreciation or the 
insurance cost. (See "Car Expenses," H & E Computronics, 
February 1980, page 529.) 

100 'GASCOST 

110 CLS: CLEAR 500 

120 INPUT"PRICE PER GALLON" ;P 

130 CLS 

140 PRINT, "COST OF GASOLINE FOR A YEAR OF DRIVING" 

150 PRINT" =============== MILES DRIVEN 



10000 



12000 



14000 



160 PRINT" 

16000 18000" 
170 PRINT"MPG" 
180 FOR MPG=10 TO 65 STEP 5 
190 PRINT USING"## " ; MPG ; 
200 FOR M=6000 TO 16000 STEP 2000 
210 PRINT USING"$$#,».ftf ;M/MPG*P; 
220 NEXT M 

230 IF HPG=65 THEN 230 

240 PRINT 'LINE RETURN ONLY 

250 NEXT MPG 



100 'PERMILE 

110 CLS: CLEAR 500 

120 PRINT, "FUEL COST PER MILE OF DRIVING" 

130 PRINT" =========== FUEL COST PER GALLON 



140 PRINT" 1.20 1.40 

2.20 2.40" 
150 PRINT"MPG" 
160 FOR MPG=10 TO 65 STEP 5 
170 PRINT USING"# ";MPG; 
180 FOR C=1.20 TO 2.41 STEP .20 
190 PRINT USING" Jftf;C/MPG 
200 NEXT C 

210 IF MPG=65 THEN 210 
220 PRINT 
230 NEXT MPG 



1.60 1. 



DIDN'T WORK WITH 2.40 



'LINE RETURN ONLY 



BALLOON 

One evening last June, just after sunset, we were driving 
around the Chicago suburbs and saw a hot air balloonist 
practicing landings. It must be quite an art adjusting the 
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temperature of the balloon with a giant gas torch to keep 
the buoyancy just neutral. Thinking about it brought back 
memories of gas law problems from chemistry class. 
Remember the alphabetic gas law inventors: Avogadro, 
Boyle, Charles, and Dalton? Actually Boyle's law was 
invented by Townley and plagiarized by Mariott, but to 
those of us in the midwest it's Boyle's law, and Mariott is 
an amusement park. 

A hot air balloon rises when the weight of the air 
displaced is greater than the total weight of the balloon and 
the air inside. The weight of the balloon is rather constant, 
although as the propane is burned it would tend to get 
lighter. The weight of the displaced air will depend on its 
volume, temperature and pressure. At standard conditions 
of average sea-level pressure and freezing point of water 
temperature each liter of air weighs 1.29 grams. The weight 
of the contained air depends on the same factors. The 
pressure inside is always the same as outside because the 
balloon is open at the bottom, unless you get real technical 
and insist that it is the higher pressure of the warm air 
inside that makes the balloon rise. For purposes of 
calculating buoyancy, this pressure difference is negligible. 
To make the calculation straightforward we will assume the 
balloon is spherical, and evenly heated. The actual case is 
not so ideal. 

\W ' BALLOON 
110 CLS 

120 PI=3. 14159 

130 'DENSITY OF AIR IS 1,29 GRAMS/LITER STP 



140 PRINT: PRINT: PRINT 

150 PRINTUHIS PROGRAM COMPUTES THE BUOYANCY, OR LIFTING 

FORCE" 

160 PRINT'OF A HOT AIR BALLOON AT VARIOUS TEMPERATURES" 

170 PRINT 

180 INPUT'EMPTY WEIGHT OF THE BALLOON (POUNDS) "; FW 

190 INPUT'DIAMETER OF THE BALLOON (FEET)";DIA 

200 INPUFBAROMETRIC PRESSURE (INCHES OF MERCURY)" ;P 

210 INPUT'OUTSIDE AIR TEMPERATURE (FAHRENHEIT)" ;F 



MASS OF BALLOON IN GRAMS 
DIAMETER OF BALLOON IN CM 
RADIUS OF BALLOON IN CM 
VOLUME IN CC 
VOLUME IN LITERS 
PRESSURE IN ATMOSPHERES 
CELSIUS TEMPERATURE 
KELVIN OR ABSOLUTE TEMPERATURE 
DENSITY OF DISPLACED AIR 
MASS OF DISPLACED AIR 



220 M=FW*453.6 

230 DI*A=DIA*12*2.54 

240 R=DIA/2 

250 V=4/3*PI*R?3 

260 V=V/1000 

270 ATM=P/29.92 

280 C=5/9*(F-32) 

290 K=C+273 

300 D=1.29*ATM*273/K 

310 M1=D*V 

320 CLS 

330 PRINT" INSIDE TEMPERATURE (F) BUOYANCY (LB)" 

340 FOR F2=95 TO 160 STEP 5 'INSIDE TEMPERATURE 

350 C2=5/9*(F2-32) 'CELSIUS TEMPERATURE INSIDE 

360 K2=C2+273 'KELVIN TEMPERATURE INSIDE 

370 D2=I.29*ATM*273/K2 'DENSITY OF INSIDE AIR 

380 M2=D2*V 'MASS OF INSIDE AIR IN GRAMS 

390 B=M1-(M+M2) 'BUOYANCY IN GRAMS 

400 B=B/453.6 'BUOYANCY IN POUNDS 

continued on page 56 



WHY $ IN DI$K ... WE'VE PUT SENSE IN CASSETTES 

TAPE ... RELIABLE, EASY. FAST! 



SPEED. RELIABILITY. VERSATILITY 

KVVLL'OS: IMixl 1 1 A programmer's prugram... for novice ore* perl. 
Not jusl ■ simple speed-up (2s. lo 6* keyboard select! bul in ea*y 
id use u petal ina, sytstem tlial fully supports your cassette recorder, 
features saic Uiad. verily, wared, duin-tuad tataNift. and test- 
read ul both BASIC and machine inde uruf/amst passwords, lung 
lilies, detwuncr. self 'backup' capability, and more... $34 

KOSJ; I Mud J I All 'KWK'OS' lealurM || 2200 baud, plus KW1K 
set uF: dock and dale, cassette high Tow. 10 ruuling, etc $24 

k W 1 K I T i minis yslcm . B ASIC programs c>njv ) F.asv Load du u blc- 
speed f..f MikM. 2200 baud fur Mr-d i. Many 'KM'IL'OS' Tea lures 
and upward eumpalible (add S2 for debouncrj $9.30 

CM' INK. I mod 1 1 "SYSTEM' eopiet supreme. Makes Ntrmd-.it' mi- lasl- 
luadnijj kWIK fonuat [Z\ it. b\ baud I copy nf any standard 500 
baud SYSTLM program. I At on. i nun pgm luads in 44 see! I. 1 1 J 

K 1.0 AN iMod _ti Makes standard 500 or 1 500 baud copy i if any 
standard 500 nr I 500 baud 'SYSTtM' program <C|g 

KBOAJJ: I Mod ll Makes stand-alone fast-loading rapt ol BASK 
ja t>l!/:irlis Similar in KMIVk . but fur BASIC programs. | J J 



\ / *\^\ ^^JOFTWAIIE 



TAKE THE (Modal I) LOADS OFF YOUR MIND I 

FLAWLESS REGULAR AND HIGH SPEED TAPE LOADS 

Plug in > LEMONAID Ltiidii. .in »tondi...lum ysui CTR 
volume fall an. and [NO Model 1 tap. 'linickiM' tor good- 
Blii that's not ill! L bid high speed copier; jail it flawlessly 
(jdaMelt). Fot sample, i KWINKtdcopy of SCRIPSIT" 
(Ilk) In jd i in jutt 44 second) ...ind without a bobdli 
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HERE'S THE BEST 
The LernonArd Pro-Laadei 
..■MUST tor MODEL I... 
Compatible with Mod III.. 
Spttltei/tfarohoriE |iek foi 
audio monitoring without 
plug pulling Special in ir 1 -! 
lor weak nets and icdri. 

Modal IPL $14 

Nasv Standard Lo.dw J£ 
MODEL LC. $1598 



NEW! Modal LSS. Puthtumon CTR mptgr controller with 
'toll 1 solid sttta twitching tp eliminate switch hits. 'Catalan' 
mutnr-off delay puNt program past pinch rollers to prevent 
pinch hits on loads and Igr automatic gepi between programs 
on savei. No plug Bulling. Saves CPU relay con nets, Work! 
with all RS tad moit o thai recorders... with any computer. 
SIB. 99 (special: SI Z 50 when pixr.lu.mt with LPL Loader] 
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| Hfle. Mrarapin ium LEMONS TECH SERVICES 

P.O. Bo* 321 Owliar inouirias ln».Tai) ajs u. Highway W PO Bo. Mil 

Bolivar. Mo. S&I13 **Wk*** f ~''~\ Sul'ata, MO. 95922 

1417,328-7154 ^^ && (4 17] 345-7643 
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• • • EVERYTHING FOE YOUR TRS«S©*# • • 
MOBEL I, MODEL 11 & MODEL 111 



* TRS-00™ is a trademark of Tandy Corp. 



FROM 

gF" RACET COMPUTES, 



» All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3.00 for shipping in UPS Areas 
• Add $4.00 for CO. D. or NON-UPS Areas 
• Add $5.00 to Canada or Mexico 
• Add exact postage to all other countries 



*** ESSENTIAL UTILITY PROGRAMS FOR EVERY TRS-80 OWNER 



*** 



Tmk About Rocet Cmpulm UttKttj Vuqmm 



*" ALL PROGRAMS ARE WRITTEN IN MACHINE LANGUAGE 

*** ABSOLUTELY NO KNOWLEDGE OF MACHINE LANGUAGE IS NECESSARY TO USE ANY OF THE UTILITY PROGRAMS 

*** EACH UTILITY PROGRAM IS CALLED UP FROM BASIC USING THE SIMPLE BASIC COMMANDS PROVIDED 

"* EACH UTILITY PROGRAM COMES WITH A RACET COMPUTES INSTRUCTION MANUAL 

*** EACH INSTRUCTION MANUAL INCLUDES SEVERAL EXAMPLES OF UTILITY USAGE 

*" EACH UTILITY ALLOWS THE USER TO PERFORM CERTAIN BASIC OPERATIONS TEN, TWENTY OR MORE TIMES FASTER THAN THE 

EQUIVALENT BASIC ROUTINE (FOR EXAMPLE, GSF CAN SORT AN ARRAY OF 1000 RANDOM NAMES INTO ALPHABETICAL ORDER IN 

UNDER 9 SECONDS!!) 



GSF (GENERALIZED SUBROUTINE FACILITY) 

• SORTS 1000-ELEMENT ARRAYS IN 9 SECONDS 

• SORTS UPT0 15 ARRAYS SIMULTANEOUSLY (MIXED STRING, FLOATING POINT AND 
INTEGER! 

• SORTS SINGLE OR MULTIPLE SUBSTRINGS AS ASCENDING OR DESCENDING SORT 
KEYS 

• READ AND WRITE ARRAYS TO CASSETTE 

• COMPRESS AND UNCOMPRESS DATA IN MEMORY 

• MOVE ARRAYS IN MEMORY 

• DUPLICATE MEMORY 

• FAST HORIZONTAL AND VERTICAL LINES 

• SCREEN CONTROLSFOR SCROLLING THESCREEN UP, DOWN, LEFT, RIGHTAND FOR 
GENERATING INVERSE GRAPHIC DISPLAYS 

• ADDS PEEKS AND POKES (MOD-II VERSION ONLY) 



MODEL-I VERSION $25.00 

MODEL-II VERSION $50.00 

MODEL-III VERSION $30.00 



DSM (DISK SORT MERGE) 

• SORT AN 85K DISKETTE IN LESS THAN THREE MINUTES! 

• SORTS LARGE MULTIPLE DISKETTE FILES ON A MINIMUM ONE DRIVE SYSTEM 

• ALL RECORDS ARE PHYSICALLY REARRANGED-NO KEY FILES ARE REQUIRED 

• SORTS RANDOM FILES CREATED BY BASIC, INCLUDING FILES CONTAINING SUB- 
RECORDS SPANNING SECTORS 

• SORTS ON ONE OR MORE FIELDS IN ASCENDING OR DESCENDING ORDER 

• FIEl DS MAY BE STIRNGS, INTEGER, BINARY INTEGER OR FLOATING POINT 

• THE SORTEDOUTPUTFILEMAYOPTIONALLYHAVE FIELDS DELETED, REARRANGED 
OR PADDED 

• SORT COMMANDS CAN BE SAVED FOR REUSE 

• SINGLE SORT, MERGE, OR MIXED SORT/MERGE OPERATIONS MAY BE PERFORMED 

• SORTED OUTPUT MAY BE WRITTEN TO A NEW FILE, OR REPLACE THEORIGINAL IN- 
PUT FILE. 



MODEL-I VERSION $75.00 

MODEL-II VERSION $150.00 

MODEL-III VERSION $90.00 



KFS-80 (KEYED FILE SYSTEM) 

• CREATE ISAM FILES (INDEX SEQUENTIAL ACCESS METHOD} 

• ALLOWS INSTANT ACCESS TO ANY RECORD ON YOUR DISKETTE 

• INSTANTLY RETRIEVE RECORDS FROM MAILING LISTS, INVENTORY, ACCOUNTS 
RECEIVABLE OR VIRTUALLY ANY APPLICATION WHERE RAPID ACCESS IS RE- 
QUIRED TO NAMED RECORDS 

• PROVIDES THE BASIC PROGRAMMER THE ABILITY TO RAPIDLY INSERT OR ACCESS 
KEYED RECORDS IN ONE OR MORE DATA FILES 

• RECORDS ARE MAINTAINED IN SORTED ORDER BY A SPECIFIED KEY 

• RECORDS MAY BE INSERTED OR RETRIEVED BY SUPPLYING THE KEY 

• RECORDS MAY BE RETRIEVED SEQUENTIALLY IN SORTED ORDER 

• RAPID ACCESS TO ANY FILE REGARDLESS OF THE NUMBER OF RECORDS 

• MULTIPLE INDEX FILES CAN BE EASILY CREATED WHICH ALLOWS ACCESS OF A 
SINGLE DATABASE BY MULTIPLE KEYS (FOR EXAMPLE, BY BOTH NAME AND ZIP- 
CODE) 

MODEL-I VERSION $100.00 

MODEL-II VERSION $175.00 

MODEL-III VERSION $100.00 



WSAtLLIST (A MAILING LIST DATABASE SYSTEM) 

• IDEALLY SUITED FOR ORGANIZATION MAILING LISTS, PERSONAL ADDRESSBOOK, 
OR MAILING LISTS BASED ON DATES SUCH AS REMINDERS FOR BIRTHDATES OR 
DUES PAYABLE 

• USED ISAM (INDEX SEQUENTIAL ACCESS METHOD) FOR RAPID ACCESS TIMES 

• YOUR MAILLIST CAN ALWAYS BE SORTED AND MAINTAINED BY UP TO FOUR INDEX 
FILES (FOR EXAMPLE, NAME. ZIPCODE, DATE AND NUMBER) 

• MAILLIST ALLOWS UP TO 30 ATTRIBUTES TO BE SPECIFIED (TO BE USED IN SEL- 
ECTION OF SPECIFIED RECORDS WHEN GENERATING REPORTS OR MAILING 
LABELS 

• MAILLIST SUPPORTS BOTH 5 OR 9-DIGIT ZIPCODES 

• PRINTING MAY BE STARTED OR ENDED AT ANY POINT IN THE LIST ...THE USER CAN 
SPECIFY FIELDS OR CODES TO BE PRINTED 

• CAPACITY IS600NAMESFOR MODEL-I, 3500NAMES FOR MODELII.38.000NAMES FOR 
MODEL II WITH HARD DISK DRIVE 1200 NAMES FOR MODEL III 

MODEL-I VERSION $75.00 

MODEL-II VERSION $150.00 

MODEL-III VERSION $75.00 
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HSDS HARD DISK DRIVE SOFTWARE 

• MAKES TRSDOS COMPATIBLE WITH MOST HARD DISK DRIVES. 

• ADDS MANY EXTRA FEATURES TO TRSDOS 



$400.00 



COMPROC (COMMAND PROCESSOR) 

• AUTO YOUR DISK TO PERFORM ANY SEQUENCE OF INSTRUCTIONS THAT YOU 
NORMALLY GIVE FROM THE KEYBOARD (FOR EXAMPLE, INSERT THE DISKETTE, 
PRESS THE RESET BUTTON, YOUR COMMAND FILE COULD AUTOMATICALLY SHOW 
YOU THE DIRECTORY, SHOW THE FREE SPACE ON THE DIKSETTE, LOAD A MA- 
CHINE LANGUAGE SUBROUTINE, LOAD BASIC, LOAD AND RUN A BASIC PROGRAM, 
AND SELECT A GIVEN ITEM ON YOUR MENU-ALL WITHOUT TOUCHING THE KEY- 
BOARD!) 

MODEL-I VERSION $20 00 

MODEL-HI VERSION .......','.'...... $3o'oO 

NOT AVAILABLE FOR MODEL-I! 



MODEL II FASTBACK - FULL DISK BACKUP 
IN 55 SECONDS 

IN BUSINESS TIME IS MONEY, AN0 ONE BACKUP IS WORTH A THOUSAND TEARS. 

• WORKS ON SYSTEMS WITH 2 OR MORE DRIVES 

• CAN REPLACE YOUR EXISTING TRSDOS 1,2 or 2.0 BACKUP UTILITY 

MODEL II ONLY $75.00 



MODEL-II UTILITY PACKAGE 



DISCAT (DISKETTE CATALOG SYSTEM) 
• THIS COMPREHENSIVE DISKETTE CATALOGUING/INDEXING UTILITY ALLOWS THE 
USER TO KEEP TRACK OF THOUSANDS OF PROGRAMS IN A CATEGORIZED LI- 
BRARY-FILE INCLUDES PROGRAM NAMES AND EXTENSIONS, PROGRAM LENGTH, 
DISKETTE NUMBERS AND FREE SPACE ON EACH DISKETTE. KEEP A COMPLETE 
CATALOG OF THE DIRECTORIES ON ALL YOUR DISKETTES IN ALPHABETICAL 
ORDER (SORTED ON EACH DISKETTE...OR COMPLETE ALPHABETICAL LIST OF 
PROGRAMS ON ALL YOUR DISKETTES) 

MODEL-I VERSION $50.00 

MODEL-III VERSION ] .' [$50.00 

MODEL-ll VERSION (SEE MODEL-II UTILITY PACKAGE) 



BLINK (BASIC LINK FACILITY) 

• LINK FROM BASIC PROGRAM TO ANOTHER SAVING ALL VARIABLES 

• THE CHAINED PROGRAM MAY EITHER REPLACE THE ORIGINAL PROGRAM OR CAN 
BE MERGED BY STATEMENT NUMBER 

MODEL-I VERSION $25 00 

MODEL-III VERSION . ... $30 00 

MODEL-II VERSION (SEE MODEL-II UTILITY PACKAGE) ..'. ] $50.00 

Tnfinite basic "~~~ 

• ADDS OVER 80 COMMANDS TO BASIC 

• SORTING...STRINGCENTERING/ROTATION/TRUNCATION...JUSTIFICATION...DATA 
COMPRESSION-STRING TRANSLATION/COPYING. ..SCREEN DISPLAY...SCROLL- 
ING...MATRIX OPERATIONS-SIMULTANEOUS EQUATIONS (THROUGH MATRIX 
INVERSION). ..DYNAMIC ARRAY RESHAPING 

MODEL-I VERSION $60 00 

MODEL-III VERSION $6000 

NOT AVAILABLE ON MODEL-II 



INFINITE BUSINESS 



• ADD ON PACKAGE TO INFINITE BASIC (REQUIRES INFINITE BASIC) 

• ADDS PACKED DECIMAL ARITHMETIC WITH 127 DIGIT ACCURACY (+,0,',/) 

• COMPLETE PRINTER PAGINATION CONTROLS-AUTO HEADERS, FOOTERS AND 
PAGE NUMBERS 

• BINARY SEARCH OF SORTED AND UNSORTED ARRAYS (INSTANT SEARCH OF AN 
ELEMENT WITHIN AN ARRAY) 

• HASH CODES 

MODEL-I VERSION $30 M 

MODEL-III VERSION .... $ 30 

NOT AVAILABLE ON MOOEL-II 



REMODEL-PROLOAD 

• THE ULTIMATE RENUMBERING PROGRAM...RENUMBERS ALL OR PART OF A PRO- 
GRAM (ALLOWS PARTIAL RENUMBERING IN MIDDLE OF PROGRAMS) 

• PARTIAL OR COMPLETE MERGE OF TWO CASSETTE PROGRAMS 

MODEL-I VERSION $3S M 

MODEL-III VERSION $35 00 

NOT AVAILABLE ON MODEL-II 



• ESSENTIAL FOR EVERY MOD-II OWNER 

• RECOVER AND REPAIR FILES AND DIRECTORIES (BY JUST ENTERING A SINGLE 
COMMAND) 

• XCOPY...SIMILAR TO COPY BUT CAN COPY ANY NUMBER OF FILES AT ONE TIME 
FASTER AND MORE ACCURATE THAN COPY SINCE RECORDS ARE COPIED IN 
GROUPS RATHER THAN ONE RECORDS AT A TIME-USING XCOPY YOU CAN COPY 
FILES THAT CAN NOT BE COPIED USING THE COPY COMMAND 

• SZAP... PROVIDES THE CAPABILITY TO READ AND MODIFY ANY SECTOR ON A 
DISKETTE 

• XHIT...CAN BE USED TO REPAIR A DISKETTE DIRECTORY 

• DCS-DIRECTOR CATALOG SYSTEM IS A UTILITY FOR THE MANAGEMENT OF USER 
DISKETTES-SETS OF A MULTIPLE DISKETTE DIRECTORY FILE (WITH UP TO 1200 
INDIVIDUAL FILE NAMES). ..ALLOWS SELECTIVELY LISTED OR PRINTED LISTS OF 
DIRECTORY FILES IN COMBINED SORTED ORDER (FOR EXAMPLE, LISTED ALPHA- 
BETICALLY BY DISKETTE...OR A COMPOSITE ALPHABETICAL LIST OF ALL YOUR 
DISKETTES!) 

• DEBUG-M...ADDS SEVERAL FEATURES TO THE PRESENT TRSDOS DEBUG UTILITY 
INCLUDING SINGLE INSTRUCTION CYCLE, AUTO (LOOP) BREAKPOINTS, SUB- 
ROUTINE CALLING, BREAK-KEY DETECTION AND MANY OTHERS 



MODEL-II ONLY $150.00 

MODEL-II DEVELOPMENT SYSTEM 

• THIS PACKAGE IS A MUST FOR ASSEMBLY LANGUAGE PROGRAMMERS 

• INCLUDES THE MICROSOFT EDITOR ASSEMBLER PLUS WITH ENHANCEMENTS FOR 
THE MODEL-II 

• A COMPLETE DISASSEMBLER 

• SUPERZAP FOR READING AND MODIFY ANY SELECTOR ON A DISKETTE 

MODEL-II ONLY $125.00 



MOD-II BASIC CROSS REFERENCE UTILITY 

• LIST OR PRINT A SORTED CROSS REFERENCE TO ALL NUMBERS OR VARIABLES 
WITHIN A PROGRAM 

• LIST OF PRINT ALL LINE NUMBERS CONTAINING A SPECIFIED STRING OF CHAR- 
ACTERS 

MODEL-II ONLY $5 o.oo 

"* ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE "* 



END USERS 
CALL: 



iCQiriPLiTHQMICS! 



V*ATV«>vlA T CA). Apour,.* 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 




COPSYS 

• COPY AND VERIFY ALL MACHINE LANGUAGE (SYSTEM) TAPES WRITTEN IN STAND- 
ARD FORMAT... IF YOU BUY A MACHINE LANGUAGE PROGRAM, COPSYS ALLOWS 
YOU TO EASILY COPY THE PROGRAM ONTO ANOTHER CASSETTE AS A BACKUP 

MODEL-I VERSION $15 00 

MODEL-III VERSION $ 2000 

NOT AVAILABLE ON MODEL-li 



*%M H0UR 

24 ORDER 
LINE 

(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



FOR DEALER 
INFORMATION CALL: 



[r- RACET 



COMPUTES ' 



1330 N. GLASSEL, SUITE M, ORANGE CA 92667 
(714) 997-4950 



ASSEMBLY LANGUAGE FOR BEGINNERS (PART 8) 

Joseph Rosenman 
This Month: Let's print the Alphabet! 



Label 


Command 


Argument 




ORG 


mm 


DISP 


EQU 


0033H 


CLR 


EQU 


01C9H 


DOS 


EQU 


402DH 


PR0G1 


CALL 


CLR 




LD 


A.41H 




LD 


B,26 


LOOP 


CALL 


DISP 




INC 


A 




DEC 


B 




JR 


NZ.LOOP 


1 


JP 


DOS 




END 


PR0G1 



ROM subroutine to display character. 
ROM subroutine to clear the screen. 
Address to return to DOS. 

Clear the screen. 
Get an ASCII 'A'. 
Number of letters in the alphabet. 

Display the character. 

A now contains the next ASCII letter 

One less letter to go. 

The Dec set the flags. 

; All done, so exit program. 



7000 CD C9 01 3E 41 06 IB CD 33 

7010 40 



3C 05 20 F9 C3 20 



The memory dump shows what this program looks like in 
RAM. Note that the program is only 11H bytes long (17 
decimal). To emphasize that point, I entered double dots 
(..) to show that those values don't matter. Now, examining 
the program should reveal several unknown instructions. 
ORGs, EQUs, LDs, INCs, DECs, ENDs, that's all old hat 
(see how much you know already?). So what is a JR, a JP, 
and a CALL? Not to worry, here they are: 

JP: Mnemonic for JUMP. This instruction causes the 
program to go to the address indicated in the argument 
field. There are two kinds of jumps: conditional and 
unconditional. An unconditional jump means "Do it, no 
matter what." A conditional jump means "do it only if the 
indicated conditions are met." Consider the following three 
instructions: 



JP 


VECT0R1 


JP 


Z.VECT0R2 


JP 


NZ.VECT0R3 



The first jump is an unconditional jump. There is no 
provision for any other action to be performed. The second 
jump (to VECTOR2) is a conditional jump. This means that 
if (and only if) the status is zero, will the jump take place. If 
not zero, the jump is ignored. The third jump (to 
VECTOR3) is also a conditional jump. In this case, the jump 
only takes place if the status is not zero. OK, I know there 
are at least two questions floating around. Question 1: how 
did the status get set? Refer to your trusty (and priceless) 
Z-80 instruction reference guide (published in the September 
1982 issue of Computronics). As you scan through the 
tables, you will see that certain instructions cause the CPU 
status to be set or reset (remember, the status is contained 
in the F register). Now the DEC B instruction will set the 



status flag. Since B contains the maximum number of 
characters, and is clicking down every time a character is 
displayed, it will decrement to when a Z is displayed. 
Every time that B is NOT 0, the jump on not zero will take 
place. When B finally does reach 0, the conditional jump is 
ignored. The next instruction happens to be an unconditional 
jump. This jump goes to a special address in DOS that, in 
effect, says "hello, I'm back!" By jumping to this location, 
you exit your program and return to the operating system. 
By the way, for those of you running BASIC only systems, 
you should replace "JP DOS" with "JP 0000H". 

Question 2: What is a JUMP? Good question. Consider 
this: how does the program know where to execute your 
program? When it is loaded into memory (from disk or 
tape), it must be placed into a specific address (in this 
case, at 7000H). After the program is loaded (in fact, the 
very last thing that can be done), the PC register is loaded 
with the address of the program starting address (7000H). 
Remember, the PC (Program Counter) controls what the 
computer will do next. Every time an instruction is 
"fetched" from memory, the PC is incremented anywhere 
from 1 to 4 bytes, so that it points to the next instruction. 
When a jump instruction is executed, the PC contents are 
replaced with the address that is contained in the argument 
field (remember, labels are also addresses in symbolic 
form). In the case of a conditional branch, the PC is only 
replaced if the condition is met. If the condition is not met, 
nothing happens. Since the PC is all ready pointing to the 
next instruction, the program just goes on as it was. 

I bet you are all snickering up your sleeves! "The silly 
fool has a JR instead of a JP in the first jump." Well, JR 
stands for Jump Relative (would you believe me if I told 
you that they named this instruction after me?). A jump 
relative acts just like a jump, with two special differences: 
(1) it is only two bytes long instead of three bytes, and (2) 
it can only jump 126 bytes back or 129 bytes forward (a 
regular jump can jump to any address in memory). Now 
that this question of jumping is settled, let's follow a 
program trace. 



> LOOP <- 



PC=7000 


A=?? 


B=?? 


CALL CLR 


PC=7003 


A=?? 


B=?? 


LD A.41H 


PC=7004 


A=41 


B=?? 


LD B.1BH 


PC=7005 


A=41 


B=1B 


CALL DISP -> 


PC=7008 


A=41 


B=1B 


INC A 


PC=7009 


A=42 


B=1B 


DEC B (flag NZ) 


PC=700A 


A=42 


B=1A 


JR NZ.LOOP 


PC=7005 


A=42 


8=1A 


CALL DISP 


PC=7008 


A=42 


B=1A 


INC A 


PC=7009 


A=43 


B=1A 


DEC B (flag NZ) 


PC=700A 


A=43 


8=19 


JR NZ.LOOP 


PC=7005 


A=43 


B=19 


CALL DISP 


PC=7008 


A=43 


B=19 


INC A 


PC=7009 


A=44 


B=19 


DEC B (flag NZ) 


PC=700A 


A=44 


B=18 


JR NZ.LOOP 
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The three CALLs to DISP displayed the letters A, B, and 
C. The program would continue on as above until it 
reached the letter Z. Let's pick up our trace during the 
display of the letter Y. 

=02 CALL DISP 

INC A 

DEC B (flat 

JR NZ.LOOP 

CALL DISP 

INC A 

DEC B (flag 

JR NZ.LOOP 

DOS 



A=59 
A=59 
A=5A 
A=5A 
A=5A 
A=5A 
A=5B 
A=5B 
A=5B 



B=02 
B=02 
B=01 
B=JB1 

B=01 



ag NZ) 



Z) 



m jp 



PC=7005 
PC=7J008 
PC=7J309 

PC=700A 
PC=7005 
PC=7J008 

PC=7009 
PC=700A 
PC=700C 
PC=402D 

As you can see in the second trace segment, the B 
register decrements to 0, the jump relative fails, then the 
unconditional jump to DOS is executed. Remember that 
the action of a jump instruction is to place the target 
address in the PC? Take note of the fact that after the JP 
DOS is executed the PC contains the number 402 D. 
Looking at the Equates at the start of the program, you will 
notice that the symbol DOS and the number/address 402 D 
were "Equated." In the trace, you will see that the PC 
address following the JR (except for the last one) all 
contain the address of the instruction associated with 
"LOOP," the CALL DISP. 

Now that I've mentioned it, what IS a CALL? Time for a 
new instruction, and a new register. For those of you who 
know a higher level language, CALL is the machine 
language equivalent of a Subroutine. In fact, Call calls a 
subroutine. Consider the action of call in this way; you are 
performing some task (task A). Suddenly, you need to stop 
performing task A; and start performing task B. You note 
the current state of task A, then perform task B. After task B 
is completed, you will recall where you left off in task A, 
and pick it up from that point. Here is an example of a 
useless program that will illustrate the CALL instruction: 



Label Command Argument 



START 
LOOP 



UNDO 



ORG 

LD 

INC 

INC 

INC 

CALL 

JP 

DEC 

DEC 
DEC 
RET 

END 



5200H 

A,0 

A 

A 

A 

UNDO 

LOOP 

A 
A 

A 

START 



Comment 

;Put a zero in A. 

;A=1 

;A=2 

;A=3 

;Make the subroutine call. 

;Do it again fop no reason. 

;A=2 
;A=1 
;A=0 
;Go back to the calling prog 



This is an example of an "endless loop," because the 
program never stops. For the sake of clarity, let's trace it 
through two passes. 

5200 3E 00 3C 3C 3C CD 0B 52 C3 02 52 3D 3D 3D C9 
5210 



PC=5200 SP=8ffl 
PC=5202 SP=800 



A=?? LD A.00 

A=00 INC A 



-> Loop <- 

continued on page 3t 



tfjgggb*f 









u 




® Includes INR OUT, multi-dimensional arrays. 

© About 40 lines/second. 

® Only 1096-35% code growth. 

© Even unstructured for-next loops, 
variable- bound arrays. 

$99.95 +S2 Shipping 
CAadd6% 



M«M 



Allen Gelder Software 
(415)387-3131 
8ox 11721 San Francisco CA 94101 



Also EDIT Full screen BASIC editor. $40 
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PRACTICAL BUSINESS PROGRAMS 
CASH FLOW ANALYSIS FOR REAL ESTATE AND OTHER INVESTMENTS 

S* M. Zimmerman, Ph.D. and L. M. Conrad 



Copyright® 1982 Zimmerman and Conrad 



This program is designed to calculate the cash flows 
resulting from a real estate or other type investment and 
then to calculate a measure of the present worth of the 
cash flows based on the classic internal rate of return 
concept. The specific approach used is called the present 
worth analysis. 

The model is as accurate as we could make it, but it is 
still a model. All models have approximations and assump- 
tions, ours is no exception. Establish procedures for using 
the model, then examine the results w.hen using the model 
on completed projects. Review the decisions you made 
with the decision the model recommends. If necessary 
adjust your procedures for using the model until it 
becomes a useful predictor, then use it on a trial basis. The 
output can only be as good as the data you input. 

One local investor has been using this model for about 
10 months. The approach has saved him money by helping 
reject poor projects, although errors do occur. One of 13 
business deals failed to behave as predicted. An "after the 
fact" examination of the investment project indicated the 
poor results came from inputting faulty information into the 
model. 

A track record of 12 out of 1 3 or 92.3% + is good for any 
decision making procedure. Compare this record to yours. 
Do you have any use for a program? Even if your track 
record is better than ours you still may want to look at this 
program. 

Investment analysis is not a simple activity. You cannot 
expect a simple answer to a complex problem. If you need 
a first approximation to an investment situation then the 
break-even program we published in Feburary 1980 in this 
magazine may be the best approach for you. If you need an 
accurate and detailed approach to decision making then 
this program may be better. 

SAMPLE APPLICATION 

The sample application is based on a real estate 
investment I involving a 44 unit apartment complex. It has 
the potential ability to earn $96,000 per year. The vacancy 
rate is estimated to be approximately 5%. In order to 
purchase this complex $100,000 cash is needed. A 25 year 
mortgage for $600,000 to cover the remaining cost will be 
issued by the seller at 10% for the first five years, then 
escalates to 12% thereafter. The estimated selling price of 
the investment in 10 years is $700,000. 

When the complex is taken over, initial repair costs are 
estimated to be $15,000 to bring the units up to the 
acceptable quality. Annual maintenance costs are estimated 
to be $25,000. Based on the Economic Recovery Act of 
1981 a table look up method of depreciation may be used 
for this type of investment. This method is built into the 
program along with other methods of depreciation. A land 
value of 10% of the investment was used. 



Time should be spent in choosing the study period used 
in your analysis. It can make a difference. A 10 year period 
was selected because it balances the value of annual cash 
flows with the value of the resale cash of a project of the 
type under consideration. 

An internal rate of return of 15% will be used for this 
analysis. This number has nothing to do with the cost of capital 
above. It is a number which represents the expectation of local 

investors. 

Inflation is an emotional subject to all investors. This 
program forces you to consider inflation as just one more 
item to be forecast. It will show you the consequences of 
different inflation estimates. We usually make at least two 
evaluations, one at zero inflation and one at 6% inflation. 

For this example we have assumed that the evaluation is 
being made for an individual in the 50% tax bracket. 

iUNNING THE PROGRAM 

Let's run our example through the computer model. 
Since we have reviewed each step, we will show the input 
and output as produced by the computer with a minimum 
amount of comment. 

CASH FLOW PROGRAM 
DEVELOPED BY: 

STEVEN M. ZIMMERMAN, PH.D. 
& LEO M. CONRAD 1982 

PERCENTS AS WHOLE NUMBERS 

TITLE :? SAMPLE 

DATE : (XX/XX/XX) ? (13/(55/82 

MAXIMUM YEARS? 10 

The screen will clear and the input of data continues: 

INPUT REGULAR INCOME 
INPUT MENU REGULAR INCOME 

C CONSTANT 

S SPECIFIED YEAR BY YEAR 

R REDO ALL REGULAR INCOME 

E END CYCLE 

The earnings were specified as a constant in our sample 
write up. We select C for CONSTANT earnings. The next 
question is: 

(M) MONTHLY INPUT OR (A) ANNUAL INPUT? 

Since the information was given as an annual amount we 
select A. The next question is: 

YEARLY INCOME? 
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The yearly income for our sample problem was $96,000. 
We answered the above question with this number. The ($) 
and (,) were left out. After this question is inputted we are 
returned to the INPUT REGULAR INCOME menu. 

The program will now return you to the INPUT MENU. 

INPUT REGULAR INCOME 
INPUT MENU REGULAR INCOME 

C CONSTANT 

S SPECIFIED YEAR BY YEAR 

R REDO ALL REGULAR INCOME 

E END CYCLE 

This time we answer E since there is no additional 
income in our problem. The next question is: 

VACANCY FACTOR (NOTE: APPLIED TO ALL VALUES IMPUTED)? 

We did not specify whether the $96,000 income was net 
or gross. We will assume that it is gross and enter a five for 
an assumed 5% vacancy factor. 

The next question is: 

INPUT CAPITAL INCOME YEAR BY YEAR 
YEAR AND AMOUNT.. 0,0 WHEN COMPLETE? 

Capital income must be put in year by year. In our 
example we assume the selling price in 10 years is to be 
equal to the purchase price of $700,000. Type 10,700000 
as the answer to the above question. The question now 
repeats itself: 

YEAR AND AMOUNT.. 0,0 WHEN COMPLETE? 

This time the question should be answered with a 0,0 so 
as to terminate this series of questions. 
The next thing you will see is: 

INPUT YEARLY COSTS MENU 
C CONSTANT 

S SPECIFIED YEAR BY YEAR 
R REDO ALL YEARLY COSTS 
E END CYCLE? 

This menu is similar to the regular income menu. In this 
case we must use option (C) and option (S). Selecting 
option (C) first we are asked: 

INPUT YEARLY COST? 

The estimate for yearly cost was $25,000. After answering 
(25000) to the above question we will be returned to the 
INPUT YEARLY COSTS MENU. This time we must answer 
(S) so we can 'input the initial cost of $15,000 which must 
be spent for clean up and start up. After inputing (S) we 
will see on the CRT: 

YEAR AND AMOUNT.. 0,0 WHEN COMPLETE? 

The answer we must give to get the $15,000 into its 
proper year is (1,15000). Since this is the only unusual cost 
we now may enter (0,0) and return to the INPUT YEARLY 
COSTS MENU. 



Since this is the last of the yearly cost information we 
enter (E) to move to the next menu. 

DEPRECIATION MENU 

L STRAIGHT LINE 

D DECLINING BALANCE 

S SUM OF DIGITS 

R REDO ALL DEPRECIATION CALCULATIONS 

T TABLE LOOKUP 1981 

E END CYCLE? - 

The Economic Recovery Act of 1981 has a very specific 
depreciation method to be used for all real estate. This 
method has been built into our program. All the traditional 
methods are also built in. Type T and hit ENTER to obtain 
the new table lookup depreciation as per the 1981 
Economic Recovery Act. 

The depreciation question and anawers are shown: 

YEAR OF EXPENSE (COUNT AS START YEAR)? 

CAPITAL EXPENSE ? 700000 

SALVAGE VALUE (LAND VALUE)? 70000 

LOW INCOME HOUSING Y/N? N 

The assumption was land value was equal to 10" of the 
price of the investment and the unit under study was not a 
low income housing investment. 

After you have completed the above you will return to 
the depreciation menu. This time input E to end the cycle. 

The next menu is the mortgage menu: 

MORTGAGE MENU 

P EQUAL PAYMENTS 
D EQUAL REDUCTION 
I INTEREST ONLY 
R REDO ALL MORTGAGES 
E END CYCLE? 

An equal payment loan may be input by typing P and 
hitting ENTER. The next question and answer are: 

BALLOON YEAR (1000 IF NONE)? 1000 



The next question is a series of questions. It is shown 
with our answers: 

INPUT FOR PAYMENT IF YOU WISH PROGRAM TO CALCULATE 
START YEAR, LOAN, APR, PAYMENTS PER YEAR, PAYMENT, YEARS 
0,600000,10,12,0,25 

The program now returns to the mortgage menu. 
Continue by typing E and hit the ENTER key. 
The next question is: 

1 INDIVIDUAL 

2 CORPORATE 
SELECTION? 

The tax treatment of individuals is very different from 
corporations relative to capital gains. We will assume the 
analysis is for an individual and type 1 followed by ENTER. 
The next question is: 
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TAX RATE? 

A tax rate of 50% will be assumed. Input 50 and hit 
ENTER. The next question-is: 

OUTPUT MENU 
C CRT 

P40 PRINTER 40 COLUMNS 
P80 PRINTER 80 COLUMNS 
P132 PRINTER 132 + COLUMNS? 

We needed the output formatted in the above manner 
for different situations. All have been included so you have 
a choice. Select P40 if you wish to match the output we will 
show. 

The next question is: 

LINE FEED (Y/N)? 

If you have an operating system such as DOS PLUS 
which has a built in line counter, this statement allows you 
to line up your paper. If you do not have such a system you 
will not be able to make use of this feature. Type N and hit 
ENTER assuming you do not have such a system. 

The next question is: 

NUMBER OF YEARS OF STUDY <= 10 ? 

It is sometimes desirable to have study periods less than 
the maximum. This question allows you to do this. We 
answered 10 and hit ENTER. 

The next question is: 

INTERNAL RATE? 

The discount rate was called the internal rate of return in 
the program. You may search for an internal rate of return if 
you wish or you may enter one discount rate for all your 
studies. We like the discount approach which yields a net 
present value. For our sample run the required internal rate 
of return discount rate was 15%. Type 15 and hit ENTER. 

The next question and answer is: 

INFLATION MENU 

S SINGLE RATE ALL FACTORS 
I INDIVIDUAL RATES-REG. INCOME/CAPITAL INCOME 
REGULAR COSTS/CAPITAL COSTS? S 

The final question and answer is: 

INFLATION? 

The program now produces the following results: 

TITLE : SAMPLE INFLATION 

DATA : 03/05/82 INTERNAL RATE .15 

INDIVIDUAL 

YEAR REGULAR CAPITAL OTHER CAPITAL 
INCOME INCOME COSTS COSTS 

700000 

1 91200 40000 



2 


91200 







25000 







3 


91200 







lOPPP 







4 


91200 







25000 







5 


91200 







25000 







6 


91200 







25000 







7 


91200 







Ibppp 







8 


91200 







25000 







9 


91200 







25000 







10 


91200 


ifknaaa 
i pvvvv 


25000 







YEAR 


DEPRECIATION 


MORTGAGE 


INTEREST REDU 




EXPENSE 




CASH 




EXPENSE LOAN 








600000 










1 


75600 









59744 


5683 


2 


63000 









59149 


6278 


3 


56700 









58492 


6935 


4 


50400 









57766 


7661 


5 


44100 









56963 


8463 


6 


37800 









56077 


9350 


7 


37800 









55098 


10329 


8 


37800 









54017 


11410 


9 


37800 









52822 


12605 


10 


259000 









51502 


521286 


YEAR 


TAXABLE 


TAX 




TAX 




CASH 




INCOME 


RATE 


PAID 


FLOW 











.00 







-100000 


1 


-84144 





.50 







-14227 


2 


-55949 





50 







773 


3 


-48992 





50 







773 


4 


-41966 





50 







773 


5 


-34863 





50 







773 


6 


-27677 





50 







773 


7 


-26698 





50 







773 


8 


-25617 





50 







773 


9 


-24422 





50 







773 


10 


- 16802 





50 


94500 


98912 


DISCOUNT CASH-84905 










DISCOUNT TAX SAVINGS- 


115243 







DISCOUNT CASH AND TAX SAVINGS 30338.3 

The theory used is the traditional cash flow theory, or 
cookie jar theory. All that is important is what is left in the 
cookie jar at the end of the year. After all expenses have 
been paid including the tax bureau you simply count what 
is left. The program is designed with this concept in mind. 
All positive and negative cash flows are identified. The sum 
of the positive cash flows less the sum of all the negative 
cash flows yields the end of year cash flow. 

The program uses four types of inputs for cash flow: 
Regular incomes & expenses and capital incomes and 
expenses. From this basic input plus information about the 
investor is calculated the tax consequences, the taxable 
income, the cash flow for each year. The present worth 
discounting procedure is then used to determine an overall 
measure of the yearly cash flows. 

Calculation of cash flows require detailed knowledge of 
tax laws and constant update of the internal programming 
procedure when tax laws change. We are not accountants. 
We have had the aid of several accountants in designing 
various aspects of the program. If you have unusual tax 
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problems, use the results of the analysis only in close 
coordination with your accountant, Congress can and will 
change our tax laws. The model may be outdated as these 
changes occur. 

10 CLEAR 300: REM "CASH" 

20 CG=.40;GC=1-CG:REM 1981 CAPITAL GAINS RATE 

30 GG$="G0":GX$="G0":GA$="G0":GB$="G0":GC$="G0": 

DIM TAX(17,3),ZD(15) 

4$ CLSiPRINT CHR$(23):PRINT "CASH FLOW PROGRAM" 

50 PRINT "Copyright" 

60 PRINT " STEVEN M. ZIMMERMAN, PH.D. & LEO M. CONRAD 1982" 

70 c$="§§ mmm §§#§#§§§§ §#§§#§§§§ mmm mmmmm 
§#§§§##§# §####### §######§ §§§#§#§§§## mtt.m hm 
■m mmm§m" 

80 W="M ###§##§§# §§§§§§§§# #§§§§§§§§ ####■§# #§§§§§§§# 
§§##§§§§" 

90 CC$="## #######§# #§§§§§§§§ »»«« ##§§#§§## #§§§#§§§# 
#######§§" 

95 cx$="## #mmm mm.u mmmm mttmmm mmmmw 

100 DIM A$(26): A$(2)="REGULAR ":A$(3)="CAPITAL " : 
A$(4)="0THER " 

103 A$(5)=A$(3):A$(6)="DEPRECIATI0N " :A$(7)="M0RTGAGE ": 
A$(8)="INTEREST " 



105 A$(9)="REDL!CTI0N 

106 A$(13)="CASH 
110 A${ 17)=" COSTS 



':A$(10)="TAXABLE ":A$(11)="TAX 
':A$(15)="INC0ME " :A$(16)=A$(15) 
':A$(18)=A$(17):A$(19)="EXPENSE ": 
A$(20)=A$(13) :A$(21)="EXPENSE " 

115 A$(22)="LQAN ": A$(23)=A$(16) :A$(24)="RATE 

116 A$(26)="FL0W ":A${1)="YEAR ":A$(14)=" ": 
A$(12)="TAX ":A$(25)="PAID 

120 PRINT: PRIWT"PERCENTS AS WHOLE NUMBERS": PRINT: 

B1$="TITLE :" 

125 B2$="DATE :": PRINT Bl$;: INPUT T$: PRINT B2$; 

"(XX/XX/XX)"; 

127 INPUT D$:INPUT "MAXIMUM Y£ARS";G:DIM Z(G, 13) ,X(50) :CLS 

130 PRINT "INPUT REGULAR INCOME" 

140 PRINT "INPUT MENU REGULAR INCOME" 

150 IF GG$="G0" THEN FOR 1=1 TO G:Z(I,1)=0:NEXT I:GG$="ST0P" 

160 PRINT " C CONSTANT" 

170 PRINT " S SPECIFIED YEAR BY YEAR" 

180 PRINT " R REDO ALL REGULAR INCOME" 

190 INPUT " E END CYCLE" ;IX$: IF IX$="E" THEN 310 

200 IF IX$="R" THEN GG$="G0": GOTO 140 

210 IF IX$o"C" THEN 280 

220 REM CONSTANT INCOME 

230 INPUT "(H) MONTHLY INPUT OR (A) ANNUAL INPUT" ;L$ 

240 IF L$="M" THEN INPUT "MONTHLY INCOME" ;Y:Y=Y*12 

250 IF L$="A" THEN INPUT"YEARLY INCOME" ;Y 

260 FOR 1=1 TO G:Z(I,1)=Y+Z(I,1):NEXT 

270 GOTO 140 

280 INPUT "YEAR AND AMOUNT.. 0,0 WHEN COMPLETE"; I, Y 

290 IF 1=0 AND Y=0 THEN 140 

300 Z(I,1)=Y+Z(I,1): GOTO 280 

310 INPUT "VACANCY FACTOR (NOTE APPLIED TO ALL VALUES 

INPUTTED) " ; VF : VF=.01*VF 

320 FOR 1=1 TO G:Z(I,1)=(1-VF)*Z(I,1): NEXT 

330 REM CAP INCOME 

340 IF GC$o"G0" THEN 1490 ELSE PRINT "INPUT CAPITAL INCOME 

YEAR BY YEAR" 

350 FOR 1=1 TO G:Z(I,2)=0:NEXT 



* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
» 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
» 

* 

* 

4- 
* 

* 

# 
* 
+ 

* 

* 
» 
* 
* 
* 
* 
* 

* 
* 

* 
* 

* 

* 
* 

» 

m • * 



y»»»»»»»»»»»»»»»»»»»»»»»^^ 



PONY EXPRESS 

Finally 

The most complete mailing program 

ever designed, used for many years 
by large corporations and organizations 



N©ir¥ Available for the Trs 80* 
Models I and III 



Following are some of the features of 

PONY EXPRESS 

• Unlimited amount of files 

• 1400 records on a Model 111 40 track 
diskette 

• Fast machine code sort 

• Records can be sorted by name, zip code, 
zip and name, zip and address 

• Records can be printed on 
labels one to five across 
132 character wide paper 
80 character wide paper 
or with Cheshire format 

• Print your own return address labels or 
any other one to five line message 

• Records can be selected by an unlimited 
amount of selection codes. 

• Automatic repeat routines for ease of 
entering records 

• Codes can be used instead of titles for 
greater efficiency during input 

• Unique correction and deletion routines 
for ease of updating files 

• Self-documenting and extensive docu- 
mentation so that anyone can learn how 
to use PONY EXPRESS in less than an 
hour 



Special Introductory Offer 

$99.00 

Call or Write to 

mmmmi 

975 Forest Avenue 

Lakewood, New Jersey 08701 
(201)364-3005 

Master Charge and Visa accepted, 
add $2.50 Shipping and Handling. 
N.J. residents add 5% sales tax. 

a Trs 80 is a trademark of Tandy Corp. 
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360 INPUT "YEAR AND AMOUNT.. 0,0 WHEN COMPLETE" ; I ,Y:Z(I.2)=Y 

m IF 1=0 AND Y=0 THEN 390 

380 GOTO 360 

390 IF GC$="STQP" THEN 1490 

400 PRINT "INPUT YEARLY COSTS MENU" 

410 IF GX$="GQ" THEN FOR 1=1 TO G:Z(I,3)=0;NEXT:GX$="STOP" 

420 PRINT" C CONSTANT" 

430 PRINT" S SPECIFIED YEAR BY YEAR" 

440 PRINT" R REDO ALL YEARLY COSTS" 

450 INPUT" E END CYCLE" ;IX$: IF IX$="E" THEN 550 

460 IF IX$="R" THEN GX$="GO" : GOTO 400 

470 IF IX$="S" THEN 510 

480 INPUT" INPUT YEARLY COST";C 

490 FOR 1=1 TO G:Z(I,3)=Z(I,3)+C:NEXT 

500 GOTO 400 

510 REM YR SPEC 

520 INPUT"YEAR AND AMOUNT.. 0,0 WHEN COMPLETE"; I, Y 

530 IF 1=0 AND Y=0 THEN 400 

540 Z(I,3)=Z(I,3)+Y:GOTO 520 

550 IF GC$o"GO" THEN 1490 

560 PRINT'DEPRECIATION MENU" 

570 IF GA$="GO" THEN FOR 1=0 TO G:Z(I,4)=0: Z(I,5)=0: NEXT: 

FOR 1=1 TO 50:X(I)=0:NEXT:GA$="STOP":D5=0 

580 FOR 1=1 TO 50:X(I)=0:NEXT I 

590 PRINT" L STRAIGHT LINE" 

600 PRINT" D DECLINING BALANCE" 

610 PRINT" S SUM OF DIGITS" 

620 PRINT" R REDO ALL DEPRECIATION CALCULATIONS" 

630 PRINT" T TABLE LOOKUP 1981" 

640 INPUT" E END CYCLE" ;IX$: IF IX$="E" THEN 1090 

650 IF IX$="R" THEN GA$="GO": GOTO 560 

660 W$(1)="YEAR OF EXPENSE (COUNT AS START YEAR)" 

670 W$(2)="CAPITAL EXPENSE" 

680 W$(3)="SALVAGE VALUE (LAND VALUE)" 

690 W$(4)="LIFE" 

700 D(5)=l 

710 IF IX$="D" THEN D(5)=2 

720 IF IX$="T" THEN D(5)=5 

730 IF IX$="S"THEN D(5)=3 

740 W$(7)="RATE" 

750 W$(8)="DEPRECIATI0N" 

760 D(8)=100 

770 FOR 1=1 TO 50:X(I)=0:NEXTI 

780 D(4)=15: PRINT "INPUT FOR NEXT ASSET ": FOR 1=1 TO 3: 

PRINT W$ ( I ) ; : INPUT D(I): NEXT I: IF IX$<> "T" THEN PRINT 

W$(4);: INPUT D(4) 

790 Z(G,5)=Z(G,5)+0(3):Z(D(1),4)=Z(D(1),4)+D(2):D(1)=D(1)+1 

800 IF D(5)=2 THEN PRINT W$(7);: INPUT D(7) :D(7)=D(7)*.01 

810 IF D(5)=l THEN 1=1: GOTO 940 

820 IF IX$="T" THEN 980 

830 IF 0(5)=2 THEN 880 

840 REM SYD 

850 SDp(D(4)*(D(4)+l))/2:BV=D(2) 

860 FOR 1=1 TO D(4) : DX=( (D(4) - (I- 1))/SD)*(BV-D(3) ) : 

SU=SD+DX : D(2)=D(2)-DX : KS= I : X(I)=DX 

870 D(1)=D(1)+1 : NEXT I : GOTO 1050 

880 REM DECL 

890 DR=D(7)/D(4) 

900 FOR 1=1 TO D(4) : DX=DR*D(2) : SX=(D(2)-D(3))/(0(4)-I+l) : 

IF D(3)>(0(2)-DX) THEN OX=D(2)-D(3) : GOTO 920 

910 IF SX>DX THEN 940 



920 X(D(1))=X(D(1))+DX: SU=SU+DX: D(2)=D(2)-DX 

930 D(1)=D(1)+1: NEXT I 

940 REM STR 

950 IF (D(4)-I+l)>0 THEN DX=(D(2)-D(3))/(D(4)-I+1) ELSE 960 

960 FOR J=I TO D(4): SU=SU+DX: D(2)=D(2) -OX: 

X(D(l))=OX+X(D(l)) 

970 D(1)=D(1)+1: NEXT J: GOTO 1050 

980 REM 1981 LAW 

990 INPUT "LOW INCOME HOUSING (Y/N)»;D7$: IF D7$="Y" THEN FOR 

1=1 TO 15: READ JU:NEXT I 

1000 FOR 1=1 TO 15: READ ZD(I): NEXT I 

1010 DATA 12, 10, 9,8,7,6,6, 6,6,5,5,5, 5,5,5:REM REG 

1020 DATA 13, 12, 10, 9, 8, 7, 6, 5, 5, 5, 4, 4, 4, 4, 4:REM LOW 

1030 RESTORE 

1040 FOR 1=1 TO 15: X(I)=ZD(I)*(D(2)-D(3))/100: NEXT I 

1050 D5=D5+X(G): FOR 1=1 TO G:Z(I,5)=Z(I,5)+X(I) : NEXT I 

1060 KK=G: IF KK>D(4) THEN KK=D(4) 

1070 IF D(4)>G THEN S=0: FOR I=G+1 TO D(4): S=S+X(I): NEXT I: 

Z(G,5)=Z(G,5)+S 

1080 GOTO 560 

1090 IF GB$<>"GO" THEN 1490 

1100 PRINT'MORTGAGE MENU" 

1110 IF GB$="GO" THEN GB$="STOP" : FOR 1=0 TO G : 

Z(I,8)=0:Z(I,6)=0:Z(I,7)=0:NEXTI 

1120 PRINT" P EQUAL PAYMENTS" 

1130 PRINT" D EQUAL REDUCTION" 

1140 PRINT" I INTEREST ONLY" 

1150 PRINT" R REDO ALL MORTGAGES" 

1160 INPUT" E END CYCLE" ;IX$: IF IX$="E" THEN 1490 

1170 X2$="START YEAR, LOAN, APR, PAYMENTS PER YEAR, PAYMENT, 

YEARS" 

1180 IF IX$="R" THEN GB$="GO": GOTO 1100 

1190 IF IX$="P" THEN INPUT "BALLOON YEAR (1000 IF NONE)";BA 

1200 IF IX$<>"P" THEN 1340 

1210 PRINT "INPUT FOR PAYMENT IF YOU WISH PROGRAM TO 

CALCULATE" 

1220 PRINT X2$: INPUT L,LO,APR,PP, PAY, YEAR :Z(L,6)=Z(L,6)+L0: 

APR=.01*APR 

1230 R=APR/PP : IF PAY=0 THEN II=(1+R) t(PP*YEAR) : 

FF=(R*II)/(II-1) : PAY=FF*LO 

1240 N=YEAR*PP : KK=G : IF YEAR<G THEN KK=YEAR 

1250 J=0:JL=0 

1260 J=J+1:S=0: SS=0: IF BA+1=J THEN YY=BA+L: GOTO 1320 

1270 IF JL>=G THEN YY=KK: GOTO 1320 

1280 FOR 1=1 TO PP 

1290 II=R*LO:RED=PAY-II:LO=LO-RED 

1300 S=S+II:SS=SS+RED 

1310 NEXTI : YY=KK : JL=J+L : Z(JL , 7)=Z(JL, 7)+S : 

Z(JL,8)=Z(JL,8)+SS : IF J<KK THEN 1260 

1320 IF LO>0 THEN Z(YY,8)=Z(YY,8)+L0 

1330 GOTO 1100 

1340 IF IX$<>"D" THEN 1420 

1350 PRINT "START YEAR, LOAN, APR, REDUCTION PER YEAR, YEARS" 

: INPUT L,LO, APR, RED, YEAR : Z(L,6)=Z(L,6)+LO:APR=.01*APR 

1360 PP=1:KK=G:IF YEAR<KK THEN KK=YEAR 

1370 FOR I=L+1 TO KK : II=LO*A : LO=LO-RED : Z(I,7)=Z(I,7)+II 

: Z(I,8)=Z(I,8)+RED: IF LO<0 THEN RED=RED-LO : 

Z(I,8)=Z(I,8)-L0 : GOTO 1390 

1380 NEXT I 

1390 IF KK=YEAR THEN KK=KK-1 

1400 IF LO>0 THEN Z(KK+1 ,8)=Z(KK+1,8)+L0 
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1410 GOTO 1100 

1420 REM I/O 

1430 IF IX$o"I" THEN 1100 

1440 PRINFSTART YEAR, LOAN, APR, YEARS" : PP=1 : INPUT 

L.LO.APR.YEAR ; Z(L,6)=Z(L,6)+LO:APR=APR*.01 

1450 KK=G: IF KK>YEAR THEN KK=YEAR 

1460 FOR I=L+1 TO KK:Z(I . 7)=Z(I , 7)+APR*L0: NEXT I 

1470 Z(KK,8)=Z(KK,8)+L0 

1480 GOTO 1100 

1490 GC$="STOP" 

1500 CLS:C$(1)="INDIVIDUAL":C$(2)="C0RP0RATE" 

1505 FOR 1=1 TO 2 : PRINT I,C$(I) : NEXT I :B3$="SELECTION" 

PRINT B3$; : INPUT SS 

1820 PRINT A$(11),A$(24);: INPUT TR:TR=TR*.01: FOR 1=1 TO G: 

Z(I,10)=TR: NEXT I 

1830 IF SS<1 OR SS>3 THEN 1500 

1840 PRINT"OUTPUT MENU" 

CRT" 

PRINTER 40 COLUMNS" 
PRINTER 80 COLUMNS" 
PRINTER 130+ COLUMNS" ;IX$ 



1850 PRINT" 

1855 PRINT" 

1860 PRINT" 

1870 INPUT" 

1880 IF IX$= 

1890 IF IX$= 

1900 IF IX$= 



C 

P40 

P80 

P130 
*C" THEN OP=l 
'P80" THEN 0P=2 
'P130" THEN 0P=3 



1905 IF IX$="P40" THEN 0P=4 

1906 IF 0P>1 THEN INPUT "LINE FEED (Y/N)";QQ$: IF QQ$="Y" 
THEN CMD"FORMS(T)" 

1910 PRINT "NUMBER OF YEARS OF STUDY <=";G; : INPUT YS : 

H$="INTERNAL RATE" : PRINT H$; : INPUT R : Hl$="INFLATION" 

R=.01*R 

1920 IF YS>G THEN 1910 

1930 PRINT "INFLATION MENU" 

S SINGLE RATE ALL FACTORS" 

I INDIVIDUAL RATES-REG. INCOME/CAPITAL 



1940 PRINT " 
1950 PRINT " 
INCOME" 
1960 INPUT " 
1970 IF IX$= 
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NEW /NOT REFURBISHED 

LETTER QUALITY PRINTER AND TYPEWRITER 
IN ONE PACKAGE 

ONLY 

$7i5 

plus shipping 

The BYTEWRITER is a new Olivetti Praxis electronic typewriter 

with a micro-processor controlled driver added internally. 

No software driver needed. 

Maybe we goofed by not charging more for a 

DAISY WHEEL PRINTER 

What's wrong with if? 

We guess everyone must be getting used to 
paying over $2000 for a new Daisy Wheel Printer 
and over $1500 for a refurbished Daisy Wheel 
Printer. Anything that costs less must be junk. 
Right? 

WRONG! 

The BYTEWRITER is not only cheaper It is better! 



REG. COSTS/CAPITAL COSTS" ;IX$ 
■I" THEN 2000 
1980 PRINT Hl$;: INPUT M:M=J1*M 
1990 FOR 1=1 TO 4:IM(I)=M:NEXTI:G0T0 2050 
2000 REM INFLATE 

2010 INPUFINPUT INFLATION RATE FOR REGULAR INCOME"; 
IM(l):M=-9999 

2020 INPUFINPUT INFLATION RATE FOR CAPITAL INCOME" ;IM(2) 
2030 INPUFINPUT INFLATION RATE FOR REGULAR COSTS" ;IM(3) 
2040 INPUFINPUT INFLATION RATE FOR CAPITAL C0STS";IM(4) : 
FOR 1=1 TO 4:IM(I)=IM(I)*.01: NEXT I 

2050 IF 0P>1 THEN LPRINT" ": IF M>=0 THEN LPRINT B1$;T$;" "; 
H1$;M ELSE LPRINT B1$;T$;" ";H1$;IM(1) ;IM(2) ;IM(3);IM(4) 
2060 IF 0P>1 THEN LPRINT B2$;D$,H$;R: LPRINT C$(SS) : LPRINT" " 
2080 IF 0P>1 AND SS=3 THEN LPRINT VV$(ST) 
2085 IF 0P=4 THEN FOR 1=1 TO 5: LPRINT A$(I);: NEXT: LPRINT : 
FOR 1=14 TO 18 : iPRINT A$(I);: NEXT : LPRINT 
2090 IF 0P=3 THEN FOR 1=1 TO 13: LPRINT A$(I); : NEXTI : 
LPRINT "ADJUSTED" : FOR 1=14 TO 26 : LPRINT A$(I); : NEXTI : 
LPRINT "$ FLOW" 

2100 IF 0P=2 THEN FOR 1=1 TO 8: LPRINT A$(I); : NEXTI : 
LPRINT : F0RI=14 TO 21: LPRINT A$(I);: NEXT I: LPRINT 
2110 IF 0P=1 THEN FOR 1=1 TO 6: PRINT A$(I);: NEXT I: PRINT 
A$(7);: FOR 1=14 TO 19: PRINT A$(I);: NEXT I: PRINT A$(20) 
2120 RR=Z(0,6)-Z(0,4):IF 0P=3 THEN LPRINT USING C$; 
0J,0J,Z(0,4),0,Z(0,6),0,0,0,0,0 I RR,RR 

continued on page 46 
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Following are some of the features of 

BYTEWRITER 

10, 12, or 15 characters per inch switch 
selectable 

Interchangeable daisy wheel - many differ- 
ent typestyles readily available 
Correctable Electronic Typewriter opera- 
tion with nothing to disconnect 
Correctable film or nylon cartridge ribbon 
Self test program built in 
Only 14 internal moving parts for incredible 
reliability, ease, efficiency and accuracy 
Two keyboard positions for standard Amer- 
ican type or special characters for foreign 
languages 



tronics compatible parallel input operates with 
TRS-80, APPLE, ISM and many others 

Call or Write to 

eQMPOTWl 

975 Forest Avenue 

Lakewood, New Jersey 08701 

(201)364-3005 

Master Charge and Visa accepted, 
N.J. residents add 5% sales tax. 
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BEGINNER'S CORNER 



Spencer Koenlg 
Lend an Ear to the Big Boys (Part IS of a series) 



Hidy ho and say hey! This is to be the last episode on a 
subject I didn't realize would be so immense. BBS's are all 
the rage, and well they should be. The doors for 
information exchange and processing at relatively inexpen- 
sive rates are just getting opened. If you are into playing 
with the latest in technology for pleasure or business (like 
the newest stereos, the latest software, etc.), then I'm sure 
you can understand the excitement I feel in getting this 
chance to tinker with these systems (and for free too!), i 
feel like the kid in the toy store and someone says "have a 
good time, kid"! 

This month ends the series with- a small discussion on 
THE SOURCE. I say "small discussion" because, if you saw 
all the materials that you get and the amount of information 
they contain, you could see how an in depth look at THE 
SOURCE could become a magazine by itself. In fact, let's 
start with who, how much, and what you get. 

THE SOURCE is a subsidiary of Reader Digest, as I'm 
sure most of you know. The actual company that THE 
SOURCE belongs to is Source Telecomputing Corporation. 

To get an account up on this service requires a $100 
registration fee and an hourly charge that varies from $18 
during peak business hours to as little as $4.25 after 
midnight. There is a monthly minimum of $10.00. The 
system itself is basically six Prime 750 mainframes located 
somewhere in Mclean, Virginia (1616 Anderson Road, to 
be exact). 

At the beginning of this article 1 said that there is so 
much information about this service that you could 
dedicate a whole magazine to the subject. The fact is, 
SOURCEWORLD is just such an item. It is published for 
those on the system and deals with the ever changing 
facilities and system up-dates. This is included as part of 
the package. 

In the issue 1 received, the topics covered were very 
interesting. Volume 2 issue 3's first subject dealt with 
getting degrees in areas such as biomedical sciences, solar 
engineering, and electronics, by taking classes on the BBS. 
These are two-year Associate degrees, accredited by the 
North Central Association of Colleges and Schools and the 
Accreditation Board for Engineering and Technology. I'm 
involved at the present time with education (I teach in an 
intermediate school in Oceanhill Brownsvlle in Brooklyn 
New York),- and this kind of news is very important for 
everyone. It shows that there's a big change comming in 
the field of education. 

The subject matter in SOURCEWORLD also covers 
bargain shopping by computer (see EXAMPLE 2), new 
menu options, new adventures on the system (my favorite), 
where to get explanations on how the system functions, 
and also a subject that will prove to become more 
important in this technological age: an on-line book 
ordering center that specializes in hard to find texts. It 
seems that they have some 40,000 plus titles held in 
inventory. That's quite a feat for any book store. 



Included with the magazine is a user's manual that, from 
the advertisements, seems very extensive. What I like best 
of all in the documentation is a little pamphlet called the 
SOURCE DIGEST. It is essentially a directory of services 
available. This is a big difference from CompuServe, where 
searching for topics of interest is done while on-line 
(searching around costs you). 

This way you can go through the guide at your leisure. 
One of the ideas suggested in some of the documentaion I 
received is to have your system boot up onto THE SOURCE 
and input the required information automatically (if your 
terminal package is capable of it). This could include what 
subject area you want. 

The table of contents contains a multitude of subjects 
an extracted list can be found in EXAMPLE 1. 



EXAMPLE 1. 



:«*#**$**!&$#** ^sfc&g;^*** 



Chat-on-line conversations with other subscribers 
Electronic mail- sending, receiving, scanning etc 
Bulletin board/Classifieds- 

INFORMATION SERVICES 

BUSINESS NEWS, SERVICES AND FINANCIAL MARKETS 

Business services- airline schedules, travel tips, restaurant 
reviews, business ventures for source subscribers 

Conaunicatins Industry- 
Current Business Trends- 36 catagories of news and commentaries. 

Taxes- Tax tips (this could pay for itself) and computer based 
calculations. 

Catalogue Shopping 

Electronic shopping- lots of discounts 

Trading and Bartering- Nationwide bartering and brokerage firm; 
classified ads etc 

Education and Careers 

This area contains intonation about education (language arts, 
math, foreign languages, programming languages etc) financial 
aid; instructional progra»s and employment opportunities. 

Governnent and Politics 
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Home and Leisure 
Consumer Affairs 
Games- 75 electronic games 
Health and medicine 



News, sports, features 
Science and Technology 



The listing continues in detail, but you get the general 

idea. 



EXAMPLE2 

>»WELC0HE TO THE TRADENET<« 

YOUR LINK TO BARTER- - -WORLDWIDE! ! ! 

COPYRIGHT 1980, BARTER WORLDWIDE INC. 

»T0 TRADE APPLE HWRE FOR ART WRITE US DIRECT! MAIL EX BARTER!« 

1-TO PLACE A LISTING TYPE P899 

2-TO SEE LISTING FORMAT TYPE P223 

3-TO SEE LATEST LISTINGS TYPE P103 

4-TO SCAN BY KEYWORD TYPE P001 

5 -READ THE WORLD OF BARTER. . .TYPE P002 

6- IF YOU ARE NEW TO TRADENET TYPE P003 

IF YOU HAVE A N Y QUESTIONS WRITE US SOURCE MAIL EX BARTER!! 

WELCOHE TO THE TRADENET! TO GAIN ACCESS TO THE VARIOUS 
FILES OF THE NET, SIMPLY ENTER THE "P-CODE" FOR THAT FILE WHEN 
PROMPTED. FOR EXAMPLE, TO VIEW THE INDEX OF FILES YOU MAY READ 
TO LEARN ALL OF THE AVAILABLE OPTIONS, SIMPLY TYPE IN «P003' 
WHEN PROMPTED. THE "PROMPT" LOOKS LIKE THIS: 

ENTER A SUBJECT, PARAGRAPH NUMBER OR "HELP" FOR INSTRUCTIONS. 
AFTER THE COMPUTER DISPLAYS THIS PROMPT IT WILL WAIT FOR 
YOU TO TYPE IN SOMETHING. . .YOU MAY ENTER A KEYWORD THAT NAMES 
WHAT IT IS YOU ARE LOOKING FOR. 

FOR EXAMPLE, IF YOU ARE INTERESTED IN CONDOMINIUM 
TIMESHARING, 

»USING ALL CAPITAL LETTERS« YOU COULD SIMPLY TYPE IN: CONDO 
OR EVEN A CHARACTER STRING SUCH AS 'TIMESH. ' THE SYSTEM WILL 
RESPOND WITH A LIST OF THE APPROPRIATE CATEGORIES AND THE P-CODE 
YOU MUST ENTER TO READ THE DETAILS OF THE LISTINGS FOR (IN THIS 
CASE) CONDOS. 

continued on page 36 




powerful information 
processing system that 
interfaces text processing and 
management. 

i have praised Midwest Data System's 
' Auto-Writer for its unique, versatile approach 
i data base management. 

■ DATA-WRITER does even more: 

• New Data Entry program tocreate your data baseoradd 
records to an existing data base. It has error checking 
features and supports both fixed and variable length fields. 

• New File Editor lets you edit your data base without an 
independent word processor. Or, if you prefer, use your own 
word processor (Electric Pencil, Lazy Writer or Scripsit) to 
create and edit your data base. 

• New Field Manager that lets you add, delete, re-order or 
append fields and merge or split data bases. 

• New interactive, double-precision Math program that 
processes up to 20 equations of up to 255 characters using 
numbers you enter and your data base field labels. It in- 
cludes an in-memory scratch pad to store temporary val- 
ues. Insert them into other equations for a cascade of in- 
creasingly complex mathematical statements. Store your 
series of equations on disk as procedure files to use any 
time you need them, 

• New two-level Sort that enables you to use nested sorts 
for complex ordering of data files. Sort on any field, without 
having previously designated it as a key. 

• New Mailing Label program that allows you to print muf- 
tiple labels from one to four across and to insert a variable 
from the keyboard or a fixed message on every label. 

• Form Letter processor that allows you to insert data from 
your data base into a form letter or contract. 

• Report Generator for columnar tabulations with auto- 
matic headings, pagination, totals and subtotals, and 
sophisticated formatting control. DATA-WRITER'S unique 
flexibility enables you to modify your report format as you 
wish, without the need to scrap it and start fresh, 

• Powerful Select-lf command that lets you define a subset 
of your data base. New instring selection capabilities. With 
Select-lf and Sort, you can create dozens of new data 
bases for specific purposes. 

• Statistical check on your data base to locate data entry 
errors. Stats also reports maximum entered data length for 
each defined field, a tremendous aid when designing a 
report. 

DATA-WRITER is both powerful and easy to use. If has speed 
and versatility not available in any so-called data base 
management system. As one Auto-Writer user said, "Why 
hasn't someone done this before!" 

For the TRS-80 Model l/lll (48K. 2 disk drives, lower case 
required). Available at your favorite software store, or order 
from Software Options, 19 Rector Street, New York, N.Y. 
10006. 212-785-8285, toll-free order lin®: 800-221-1624. 

Price: $125 (plus S3 per order shipping and handling). New 
York State residents add sales tax. Visa/ 
Mastercard accepted. 
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Disk Drives and Cases 

The B.T. Enterprises Mini-Floppy 5-1/4 inch Disk Drive Case is unique in that it is 
constructed of clear plexiglass. This innovative design is the first on the market which 
enables the user to actually see the Disk Drives working while using the computer. The 
case is constructed of a 1/4 inch durable plexiglass base with a 1/16 inch clear plexiglass 
cover. The case and power supply are available for single or dual drives. One advantage of 
the dual design is that both floppy drives are built into one case for saving space and easier 
handling. 

The unit is equipped with a linear filtered power supply that is regulated to match the 
power consumption of the mini drives. The power is AC fuse protected with a chasis 
mounting fuse on the back of the case for easy maintenance. An on/off switch is provided 
on the bacck of the case. The AC line cord is a standard 3 prong plug designed to meet Dl 
listing. 

WLOVWY DISK BSJWES 

201100* 5-1/4 Disk Drive Case & Power Supply (Sgl) $ 79.95 

201S00* 5-1/4 Disk Drive Case & Power Supply (DM) $ 109.95 

201101* Tandon 40tk SH w/case & Supply $ 299.95 

201102* Tandon 40tk DH w/case & Supply $ 399.95 

201103* Tandon 80tk SH w/case & Supply $ 399.95 

201104* Tandon 80tk DH w/case & Supply f 499.95 

201201* Dual Tandon 40tk SH w/case & Supply $ 579.95 

201202* Dual Tandon 40tk DH w/case & Supply $ 779.95 

201203* Dual Tandon 80tk SH w/case & Supply $ 779.95 

201204* Dual Tandon 80tk DH w/case & Supply t 979.95 

200300 Disk Drive Extender Cable " I 9.95 

*Complete with extender cable 

Bare Drives 

200101 Tandon 40tk SH Bare $ 259.95 

200102 Tandon 40tk DH Bare $ 359.95 

200103 Tandon 80tk SH Bare $ 359.95 

20 1 04 Tandon 80tk DH Bare $ 459.95 

Helpful Products for 
Your Computer 




Printer Stands 

End the paper mess on 
your computer desk. Our 
printer stand allows 
your paper to be fed from 
under the printer, 
making room for the 




used paper to stack behind the print out of the way. 
Available with an optional removable shelf (Shown) for 
easy computer forms change. Available in Large size 
also, for MX- 1 00 and other large printer users also. Also 
available with center slot for bottom feed printers. 
(Large only). 

Begular Stand (300010) 129.95 

Begular w/shelf (300011) $44.95 

Large Stand (300020) $34.95 

Large w/shelf (300021) 149.95 

Large w/slot (300050) $49.95 

Diskettes 

Elephant Memories Systems Diskettes at a special LOW 

price!!! 

Single Density/Single Sided/Soft Sector 500351 $22.50 

Double Density/Single Sided/Soft Sector 500352 $26.50 

Double Density/Double Sided/Soft Sector 600353 $32.50 

Portable Disk Bulk Eraser 

Clean all old data off of your diskettes before reusing 
them! This is a MUST for your computer room. Easy to 
use, non-electric, portable! II 
500102 Only . . .$4.95 



(500021) $49.50 dz. 
(500031) $49.50 dz. 
(500041) $49.80 dz. 



Ribbon Reloads for MX 70/80/100 

Eeload your old ribbon cartridge for much less than 
replacing the cartridge! Quick and easy to do, takes only 
about 2 minutes each to reload. Includes complete 
instructions. Available in Black and 4 popular colors! 

Black Reload (500000) $3.95 ea. (500001) $39.95 dz. 
Bed Reload (500010) $4.95 ea. (500011) $49.50 dz. 
Blue Reload (500020) $4.95 ea. 
Green Reload (500030) $4.95 ea. 
Brown Reload (500040) $4.95 ea. 

Ribbon Cartridges for MX 70/30 

Replacement cartridges for your printer. Complete 
cartridge for your printer at great savings! Available in 
Black and 4 popular colors! Buy in 3 packs and save! 

Black Cartridge (500050)$10.95 ea. (500051)$29.95/3 
Red Cartridge ( 500060) $11. 95 ea. (500061)$31.95/3 
Blue Cartridge (5000?0)$11.95 ea. 
Green Cartridge (500080)$11.96 ea. 
Brown Cartridge (500090) $11.95 ea. 
_Z---j./:_-lii. "1 Hawldas Ed. 
FTl I Centereach, IX 11780 

(BIB) 981-8868 (voice) 
| (616) S88-S836 (modem) 

Dealer Inquires Welcome 

Priees subject to change 
H.Y.S. Besidents Add las Add $8 shipping 



(500071) $3 1.95/3 
(500081)$31.95/3 
(800091)131.95/3 
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DOIFT JUDGE 
A COMPUTER 
BY IT'S COVER!!! 

... If yon were to have a 

Microcomputer operating at 



. . .If yon were to have a S 

Megabyte Hard Drive bnHt in 
... If you were to have a floppy 

disk drive built in 
. . .If you were to have an Amber 

Fhospher Monitor buUt in 
. . .If you had the finest Hard 

Bisk Operating System 

available 

Tow would hair® the New 
B.T. 4xB Model HI 

raieroeomputer, the only one 
in its class. 

Starting with a basic TRS-80 Model III, add 
one Tandon 40 Track Dual Sided Disk Drive, 
48K of High Grade NEC Memory, the famous 
Micro Mainframes Disk Controller System, 
and the security of B.T. Enterprises 
engineering assuring long life and 
dependability! 

Then we really get started include a 4 MH2 
Module installed to make the Model III 
Microprocessor operate at twice the speed of 
a standard Radio Shack Model III. Also 
include the use of a Superdense Disk Drive 
for extra Floppy disk storage (360K). Then 
have Installed a 5 Megabyte Hard Disk Drive 
(Winchester Technology). When the system 
is configured, the Hard Disk Drive contains 
the operating system and becomes the 
master (primary) drive. The Hard Disk has 
40 times the speed of data transfer as 
compared to a normal floppy disk as well as 
containing the storage capacity of more than 
30 standard floppy disk drives. 

Each unit is built 
and tested in our Long 
Island New York 
assembly plant and 
delivered to your 
dealer complete 
Dos Plus 4.0 Disk 
Operating System 
which we consider 
have the finest 
features of any 
Disk Operating 
System available 

Price: 

$3995.00 

Add $80.00 shipping and liandUag 





171 Hawkins Rd. 
Centereach, N.Y. 11720 
(516) 981-8568 (voice) 
(516) 588-8836 (modem) 
Dealer Inquiries Welcome 
Prices subject to change 
N.Y.S. Residents Add Tax 



B.T. Hard Disks 

We want you to have all the power that your 
TRS-80 is capable, at prices that have other 
manufacturers cross-eyed! These Five and 
Ten Megabyte units are easy to use, just plug 
them into the expansion buss of your Model I 
or Model III. Comes complete with the 
fantastic DOS PLUS 4.0 Operating System! 
Available in two configurations: 5 Megabyte 
Fixed, 10 Megabytes Fixed. Look at the 
incredible low prices of our systems! 



5 Megabyte Winchester Fixed Disk 
201505 Model I Version #2795.00 

203505 Model III Version #2795.00 

10 Megabyte Winchester Fixed Disk 
201510 Model I Version $3195.00 

203510 Model III Version $3195.00 

Add $10.00 sMjppisg and handling 



Upgrade Kit 

Putting Disk drives into your TRS-80 
Model III will turn it into the powerful 
computer it was designed to be. The B.T. 
Enterprises DISK DRIVE INSTALLATION 
KIT is easy to do and represents a 
substantial savings over the cost if done by 
Radio Shack. 

The kit was designed to be installed by a 
non-technical person, and takes an average 
of 45 to 75 minutes to complete. The only 
tools necessary are a phillips and flat head 
screw driver and a pair of diagonal cutters. 
No cutting of traces or soldering is 
necessary. The full Instruction procedure 
was the topic of a feature in 80 US Magazine 
In the May, 1982 Issue, and was given high 
marks for ease of installation. 
KIT CONSISTS OF: 

• FDC III B* Micromainframe Controller 
Board assembled & tested 

• Switching power supply 

• Disk drive mounting brackets 

• All cables and hardware 

• Instructions with diagrams 

• Drives are optional 

*FDC III C Board optional at additional cost 
supports 8 inch external drives and 
extended density 5-1/4 Inch drives (dual 
headed and 80 track) 

303103 Disk Upgrade Kit B Version 

w/hardware 
803 1 04 Disk Upgrade Kit C Version 

w/hardware 

203113 Disk Upgrade B Version w/2 40tk 9 

32K 

203114 Disk Upgrade C Version w/2 40tt & 

32K 
203 118 Disk Upgrade C Version w/2 40tk 

DH»32K 
203116 Disk Upgrade C Version w/2 80tt & 

32K 
2031 1? Disk Upgrade C Version w/2 80tk 
DH#32K 
FDC III B Controller Board only 
FDC III C Controller Board only 
Switching Power Supply (3 

voltages) 
Controller Assembly Kit 
Controller Assy kit w/power Supply 



203003 
203004 
200500 

203010 
203610 
DH - Dual Headed 



♦279.9S 
*329.98 

* 799.98 
$ 849.98 
#1049.98 
$1049.98 

11249.98 

* 139.95 

* 224.98 



» 99.95 
t 75.00 
* 174.98 




Radio Shack is a trademark of 
Tandy Corp. 



BEGINNER'S CORNER 
continued from page 33 

IF YOU ENTER P998 YOU WILL BE ABLE TO READ A DETAILED LIST 
OF >»ALL<« OF THE VARIOUS COMHANDS WHICH ARE AVAILABLE ON THE 

SYSTEM. 

IF YOU HAVE ANY DIFFICULTY WHATSOEVER IN UNDERSTANDING 
THESE (Press return for more output) INSTRUCTIONS OR IN USING 
THE TRADENET, PLEASE LET US KNOW BY EXITING THE BARTER DATA BASE 
(BY ENTERING 'STOP 1 IN CAPITAL LETTERS WHEN YOU SEE THE PROMPT) 
AND THE IN COMMAND MODE TYPE THIS: 

>«AIL EX BARTER 

IF YOU DO NOT KNOW HOW TO USE THE SOURCE ELECTRONIC MAIL SERVICE, 
CALL CUSTOMER SUPPORT AT 1-800-336-3330, 
OR, AFTER YOU'VE EXITED THE BARTER DATA BASE BY TYPING 'STOP' 
WHEN PROMPTED, YOU WILL SEE A "SYSTEM PROMPT" THAT LOOKS LIKE 

THIS: > 

WHEN YOU SEE THAT, YOU MAY TYPE IN 

INFO MAIL INFO 

AND PRESS RETURN... YOU WILL THEN RECEIVE INFORMATION ABOUT THE 

NAIL SERVICE. 



Mclean, VA. By the way, you needn't preface each transmission 
with " ! ! CHAT CHAT STC303", now that we are "CONNECTED"... 

THAT'S GOOD TO KNOW IT ISN'T CLEAR IN THE DOCUMENTS I RECEIVED 
OR IN THE INSTRUCTIONS IN THE HELP FILE. 

Are you a brand-new SOURCE user? 

IM USING THE SOURCE FOR A SERIES ON BBS AND I WAS GIVEN SOME 
TIME ON THE SYSTEM . 

AH... WELL, ENJOY! Is there any info I can give you that will 
help your research? 

NONE THAT I CAN THINK OF. I HAVE MOST OF WHAT I NEED . WHAT I 
WANTED TO TO WAS INCLUDE A SHORT DISCUSSION WHICH IS JUST WHAT 
I HAVE NOW. 

Good! Well, I'd better get back to printing out some UPI 
stuff... call again whenever you have tiie! 

OK THANKS 

> 

Bye 

««mi,******* ***************************** 



HAPPY TRADING!!! 



One of any time sharing system's most appealing and 
used option is the ability to talk to other users who are on- 
line. When I was using the Queens College or Brooklyn 
college system, I often talked to fellow students, some of 
whom might have been located hundreds of miles away. 
On the SOURCE I had the pleasure of talking to two users. 
Some excerpts are in Examples 3 and 4. 



EXAMPLE 4 

>CHAT TCT112 HI CARE TO CHAT I'M WRITING FOR A MAGAZINE. 

> 

* TCT112 user 23 SYS11 * 

Yeeeeeessss?## (it's nice to see enthusiasm-S.K.) 

CHAT TCT112 HI WHO ARE YOU? AND WHERE ARE YOU? 

Alio allolM 



EXAMPLE 3 (MY FIRST CONVERSATION) 

>CHAT STC303 HI CARE TO CHAT I'M WRITING AN ARTICLE FOR A MAG 

* STC303 user 3 SYS12 * 



HI! 



CHAT STC303 HI MY NAME SI SPENCER KOENIG I WRITE FOR COMPUTRONICS. 
WHO ARE YOU AND WHERE ARE YOU? 

Good morning! I'm Pat Trenner, and I work at the source. 
What is Coiputronics? 

I think he was just kidding (ha ha) 

CHAT STC303 COMPUTRONICS IS A MAGAZINE FOR THE TRS-80. WHAT DO 
YOU DO FOR THE SOURCE? 

I work in the editorial department. . .on docuientation, stuff on 
the system, and for cable products. Where are you located? 

CHAT STC303 IM IN NYC. FLUSHING TO BE EXACT AND YOU? 



HI WHO ARE YOU? 

whoops... Hi, who are you, too? I am Maria. To 
save you the effort of typing in the next logical 
question, I'i in Long Beach, CA. And to save myself 
the effort, where are you? Are you a demo aecount?## 

YES I'M A DEMO ACCOUNT, ALTHOUGH I DON'T LIKE REFERRING TO 
MYSELF AS SUCH. I'M IN FLUSHING N.Y. AND I WRITE FOR 
COMPUTRONICS MAGAZINE, WHICH IS FOR THE TRS-80 COMPUTER. 
MY NAME IS SPENCER KOENIG. 

Hi Spencer. Sorry to have referred to you as a "demo account," 
but I couldn't imagine what else "DM0" might stand for, other 
than Department of Motorized Olives, which didn't seen likely. 
What do you write, for the magazine "Computronics?"#|! 

Well, as you can see, the conversation could only get 
more interesting and it did. I intend to contact Maria on 
CompuServe, where we both maintain accounts. As it turns 
out she and has quite a number of interests such a 
computer controlled synthesizers, a husband who has a 
Buick dealership (I assume he's at least an interest) and a 
few other things that sounded time consuming and 
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MOD I/III SPEED MOD 



The only resource you 



replace is TIME. PLUG IN A SPRINTER (by Holmes 



TRIPLE THE SPEED of your TRS-M MODEL 1 OR MODEL 3. 

YES! A NEW Z-80B MICROPROCESSOR IS INCLUDED! 

YES! Special circuity handles your slower memory chips. 

YES! Automatic switch down to "normal" for disk I/O. 

YES! IT IS ABSOLUTELY FANTASTIC and only 99.50 COMPLETE!! 

Only the cream of the crop - - for you, from HACKS. 



SCRIPLUS »3.0 (by ROSTEK) is the software "patch" for SCRIPSIT (c) that lets you output 
control codes toCHANGE TYPE STYLES, UNDERLINE, etc. from within your tettfiles. Written 
especially for the MX-80 but works fine with most any printer that accepts control codes. Makes your 
printer do .11 the tricks it was designed for. +DIR, KILL, MERGE, and MORE, WHILE IN 
SCRIPSIT (c). 
How many dines have you wished? Here 'tiz ON DISK 39.95 



Need a SUPERFINE lowercase CHARACTER GENERATOR for your MOD 1? KSG 
Technology builds 'em, and we've got one just for you. Beautiful lowercase -FULL DECENDERS - 
All of the graphics, of course. INCLUDES the SPECIAL GRAPHIC S tor CHR$ (0) thru CHR$ (3 1 ) 
omitted in the later Radio Shack lower case chips. Ask for the CGA-2. You'll love it! Only 29.95 



Did you ever bomb a disk? SUPER UTILITY (by Kim Watt) WILL AUTOMATICALLY 
RECOVER BOOT SECTIONS, GAT TABLES, READ AND COPY PROTECTED MEDIA 
TRANSFER FROM ONE DOS TO ANOTHER, SINGLE ORDOUBLE DENSITY, and on, «nd 
on, and on .... You just wouldn't believe . . . Includes a hundred and some odd vital functions. The 
BEST (no doubt!) and very, very highly recommended for ANYONE that uses a TRS-80 MOD 1 or 
MOD 3 with any kind of DISK and any kind of DOS. You just got to use it to realize what you've got 
here! The name "SUPER UTILITY" is • gross under-statement. One use can easily pay for the 
program. 48K required. Specify 35tk, 40* or 80 tk media for your Mod 1 or Mod 3. Absolutely 
professional! You need this! Don't get caught without it 74.95 



profitable. My paint here is that computers are no longer 
the loner-sits-at-home type of machine. They're the latest in 
how to get and maintain pen pals, business contacts, or any 
other type of human relationship you can conceive of. 

To make this point, there was a section that dealt with 
dating that I happen to stumble across (see EXAMPLE 5). 

EXAMPLE 5 

Whether you're buying or selling, looking for a new love 
or just chattering, the POST database puts your lessage 
online in a few easy steps! 

At the first proipt, "Read, Post, Purge, Scan, or HELP:" 

Enter the coreading all the instructions by typing HELP and thg 
command naie (Ex: 

>P0ST3 DATING 

DATING? 

Do you need help? Not really 

<R>ead,<PO>st,<PU>rge,<S>can, or <H>elp:S 

<Oategory , <U>ser ID , <D>ate , <K>eyword : C 

Categories, or <H>elp:DATING 

Searching... 
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all hardware Model I Lowercase 

THS-SO >s a Trademark s! Tandy Cot» 



DUALCASE 

UPPER/lowercase, full time 
from power-up; NO software; 
Standard typewriter keyboard 
operation (shift to UPPER- 
CASE); Control characters can 
be displayed; 128 Total char- 
acter set plus full graphics. 

ELECTRONIC SHIFTLOCK 

No extra keys or switches. Sim- 
ply tap either shift key, UPPER- 
CASE lock, normal shift un- 
locks, 

DE-B-B-BOONCE At no extra cost 
(At your option) 

BLOCK CURSOR If you like (No chg) 

SWITCHABLE from key board 



Mk 



"THE PATCH" is compatible with 
any word processor, any DOS and also 
other languages which use ROM sub- 
routines. Assembled and tested...$1 27.00 
"THE PATCH" unit plugs into the 
ROM sockets (does not replace existing 
ROM). Lowercase does require installa- 
tion of the extra video ROM (supplied 
with "THE PATCH"). 

Detailed instructions guide even the 
most inexperienced owner to complete 
installation in about 30 minutes. 
WHEN ORDERING SPECIFY: 
"Mem Size" D "Memory Size" a 
And your choice of any/all options. 

To order, send payment plus $2.00 
shipping and handling. Texas residents 
add 5% sales tax/ 



WHEN ORDERING SPECIFY: 

"Mem Size" O "Memory Size" d 

Any your choice of any/all optioni 



To< 



s$2.00 



"THE PATCH" is c 
one year limited warranty on materi- 
als and workmanship. (Does void 
Radio Shack's 90 day warranty.) 



"THE PATCH" i. a 
CECOAT.INC. 



HACKS 



P.O. iOX 129C3 

.Tram 7501 7 



National Distribute™ 



713-455-327* 



<N>arrow, <E>xpand or Return for all : 

Wait.. 

12 JUL ST2449 LOVE DOING IT? (DATING) 

11 JUL CL0480 FUN FLORIDA GUY (DATING) 

11 JUL ST0331 MATCHMAKER #14 (DATING) 

11 JUL ST0331 MATCHMAKER #14 (DATING) 

11 JUL TI-075? SWINGERS UNITE L. A. (DATING) 

11 JUL TCV730 HELP, I JUST MOVED TO N.J. (DATING) 

11 JUL ST3202 POST SCAN DATING (DATING) 

11 JUL ST32J32 SINGLES(DATING) 

11 JUL TCL017 HEY HEY WK(DATING) 

10 JUL TCK836 (DATING) 

10 JUL ST3058 NEVER TRIED THIS BEFORE! !! (DATING) 

10 JUL ST0897 FLA. GUY WANTS TO MEET FLA.LADY(DATING) 

10 JUL TCP528 BICOASTAL WOMAN AVAILABLE(DATING) 

10 JUL TCP528 VERMONT VOYEUR (DATING) 

10 JUL TCK085 DIAL -YOUR- MATCH NUMBERS(DATING) 

10 JUL CL2372 IN SEARCH OF. ....???? (DATING) 

10 JUL TCV340 SOUTHEAST LADIES (DATING) 

10 JUL TI-0804 RAVISHING BLONDE (DATING) 

10 JUL TI-0804 OK, SHAWNA IS BACK IN TOWN!! ! (DATING) 

9 JUL ST0048 GUYS WANTED! (DATING) 

9 JUL ST0048 ANY GIRLS OUT THERE ? (DATING) 

9 JUL ST23.90 PITTSBURGH LOVER RETURNS ! ! (DATING) 

9 JUL ST1703 WANTED: HOUSTON GIRLS(DATING) 

9 JUL TCZ762 ANY DENVER/BOULDER WOMEN?? (DATING) 

8 JUL ST2390 MALE: SEEKING WILD WOMEN !! (DATING) 

8 JUL ST3303 SYSTEMS ANALYST PILOT MIDWEST(DATING) 

8 JUL TCZ985 LOOKING FOR TALL AND TAN!! (DATING) 

8 JUL ST1306 MORE OF THE DWARVES(DATING) 
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29 8 JUL TCH090 LOOKING FOR CHAT FRIENDS(DATING) 

30 7 JUL TCT593 WELL-RIPENED NY FEMALE . . .(DATING) 

31 7 JUL 1X0011 FEMALES WANTED(OATING) 

32 7 JUL TCW890 LURLINE(DATING) 

33 7 JUL ST130S DWARVES! !!! (HEH HEH) (DATING) 

34 6 JUL TI-0757 L.A. AREA AFTERNOONS (DATING) 

35 6 JUL ST2449 NAUGHTY ? LADIES DARE TO BE NAUG(DATING) 

36 5 JUL TCZ507 N.Y. STUDENT WANTS TO MEET SAME (DATING) 

37 5 JUL ST1616 MALE 22 WANTS FEMALE OVER 18(DATING) 

38 5 JUL ST1964 COMPLIMENTARY DRINKS AND DINNER(DATING) 



EXAMPLE 6 

Category: DATING 

Subject: MORE OF THE DWARVES 

From :ST1 306 

Posted:8 JUL 12:28 am 



<N>ext,<PO>st, or Return for text- 

HIHOHIHOH! 

WE ARE SOME VARIOUS NUMBER 
OF SHORT, EXTREMELY UNWASHED DWARVES, 
AND WE WANT TO MEET YOU! ! WE ARE LOG 
ATEDIN ST. LOUIS, MO., AND SHORTSVILLE 
(OUR FEMALE MEMBER IS IN N.J.) IF YOU 
WANT TO JOIN US, OR JUST CHAT, WE ARE 
AT ST1306(ST, LOUIS) OR TCX706(N.J.) 



N.J. 



SMELLY 
ACTING SUPREME DWARF 
(THE REAL SUPREME DWARF IS AT CAMP, 
I'VE GOTTEN A LOT OF LETTERS) 

ST1306 



Category: DATING 
Subject:DWARVES!!!!(HEH HEH) 
From :ST1 306 
Posted: 7 JUL 12:33 am 



<N>ext,<PO>st, or Return fop text- 
HIHOHH !!!!!! 

THE DWARVES ARE HERE! WE ARE SHORT, FOUL SMELLING, AND WE WANT 

TO MEET YOU!!! 

(ESPECIALLY IF YOU ARE A PRETTY GIRL!) 

WRITE US AT ST1306 

SMELLY 
ACTING SUPREME DWARF 



As you can see, everything is pretty much business on 
The Source. Most of the users have no sense of humor. By 
the way, just for fun and in the interest of good journalism I 
tried calling the "Bi-coastal Woman" (sure, for journalism, 
ok). As it turns out her name is Lisa XXXX, (I didn't ask her 
last name), and it seems her sister and a friend put her 
number on the listing. 



She was rather shocked when 1 called (I have that kind 
of affect on women), because she had her answering 
device on for the last few days and was hoping the calls 
would have stopped (I just keep on trying). She wants you, 
the reader, to know that the SOURCE does work, and that 
she was getting calls from across the country (i.e. Chicago, 
etc. — She wanted to know which coast it was on). All in all 
that kind of thing can be funny at first, but soon turns into 
the nuisance you would expect. 

After all I've said so far, I've only just scratched the 
surface of what is available. The educational information is 
tremendous: how to fund a college education and get work 
experience at the same time in government sponsored 
programs; what the menus are like and how to use them 
efficiently; how to chain menus and get to where you want 
quickly; how to use the various databases for business; how 
you can use the system to write your own programs; about 
data storage. As you can see, the list goes on and on. If you 
want to see more on this kind of information, let me know 
(I didn't even talk about Startrek or their new adventure 
"BLACKDRAGON"). Until next time at Beginner's Corner. 

Spencer Koenig 
153-27 73 Avenue 
Flushing NY 11367 ■ 

ASSEMBLY LANGUAGE FOR BEGINNERS 
continued from page 25 

PC=5203 

PC=5204 

PC=5205 

PC-520B 

PC=52j3C 

PC=520D 

PC=520E 

PC=5208 

PC=5202 SP=8000 A=00 INC A -> Loop 

PC=5203 

PC=5204 

PC=5205 

PC=520B 

PC=520C 

PC=520D 

PC=520E 

PC=5208 

PC=5202 

etc. 

Note: this little program will go on for ever and ever 
(until you power down or hit reset). If you were to enter 
this program (with EDTASM, a very good idea), assemble it, 
then run it, you would see and hear nothing. Remember, 
this program doesn't do anything except increment and 
decrement the A register. 

The CALL instruction will save the NEXT address to be 
executed (all ready present in the PC register) in the stack, 
and then Jump to the target address (in the argument field). 
Whenever a subroutine is CALLed, it must end with a 
RETurn. The rule is: every CALL must have a matching RET. 
Now, the only question remaining is, "What in the world is 
a Stack?" 



SP=8000 


A=01 


INC 


A 


SP=8000 


A=02 


INC 


A 


SP=8000 


A=03 


CALL 


UNDO 


SP=7FFE 


A=03 


DEC 


A 


SP=7FFE 


A=02 


DEC 


A 


SP=7FFE 


A=01 


DEC 


A 


SP=7FFE 


A=00 


RET 




SP=8000 


A=00 


JP 


LOOP 


SP=8000 


A=00 


INC 


A 


SP=8000 


A=01 


INC 


A 


SP=8000 


A=02 


INC 


A 


SP=8000 


A=03 


CALL 


UNDO 


SP=7FFE 


A=03 


DEC 


A 


SP=7FFE 


A=02 


DEC 


A 


SP=7FFE 


A=01 


DEC 


A 


SP=7FFE 


k=m 


RET 




SP=8000 


A=00 


JP 


LOOP 


SP=8000 


h=m 


INC 


A 
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MULTI 



Model III 




in 



**^ *^ Now Available ! 



WHAT DO YOU USE YOUR TRS-80® For? 

• Word Processing ? 

„, MULT1DOS will permit you to grab' a formatted diskette, shove it into a track compatible drive, and write to it - no matter if it is single density double 

f m density, or DBLDOS™ density This is possible because of MULTIDOS' automatic density, recognit.on which includes diskettes formatted bv 
DBLDOS™ — similar to NEWDOS/80 2.0. 

* Basic Programming ? 

"MULTIDOS' BASIC is unequaled, in both features and size, among TRS-80* Disk Basics. 

— Paul Wiener, 1982 
Included is B BASIC/CMD which has all of the "BOSS" single step and trace features Now 
you can insert 'break points' to turn on/off the trace and/or single stepping in your BASIC pro- 
gram. Now you can save the screen as formatted and look at variable values. Afterward return 
the screen as before and continue your BASIC program 



• Whatever — MULTIDOS Is Easy To Learn, Easy To Use 

DOS commands may be repeated, even multiple DOS commands Systems utilities never 
require more than 2 keystrokes per query 

Now That's Easy! To Make It Easier There is a 'Help File'! 



MULTIDOS 
Mode! I or Model III 



$7995 



Only 

(Watch the Competition Squirm!) 



MULTIDOS Now Available From. 
WARLOCK WAREHOUSE 

1891 Eason, Ponltac, Ml 48054 

(313) 673-2224 or (313) 873-8700 

-AND- 

POWERSOFT 

1 1 500 Slemmons Fwy , Suite 125 

Dallas, Texas 75229 

(214)484-9428 



Cosmopolitan Electronics Corporation 

P.O. BOX 234 • PLYMOUTH, Ml 48170 

(313) 397-3126 
— Dealer Inquiries Welcomed — 



I^B UhbJ 

COD - Cash or Certified Check 

Allow 2 Weeks For 
Personal Checks To Clear 

ADD $3.00 
Shipping & Handling 

Michigan Residents 
Include 4% Sales Tax 
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A Stack is a special kind of "list." Values are stored in the 
stack in sequential order. In a sense, a stack is just like an 
array with one dimension. There are a couple of very 
special differences, however. The structure of the stack is 
such that values are always added to the top of the stack, 
and taken off of the top of the stack. This means that the 
last item in the stack is always the first item out (this 
structure is known as a LIFO structure). Every item on the 
stack must be a sixteen bit value. And finally, the stack is 
supported by the CPU hardware. There are several instruc- 
tions that are specifically intended for the stack. The CALL 
and RET are two of them. As we explore other programs 
and programming techniques, we will learn about additional 
stack instructions. There is one other strange feature about 
the stack; it grows upside down. If we want a stack that is 
100H is size, and is located at the top of memory (in a 16K 
system), we would place it at location 7F00. Whenever a 
value is added to or removed from the stack (as in a CALL 
or RET), the SP (or Stack Pointer register) is DECremented 
(for a CALL) and INCremented (for a RET). That is why (in 
the second trace), every time a call was made, the SP was 
DECremented by 2, and the next address to be executed is 
stored in the memory location pointed to by the SP. 
Whenever the RET is executed, the value pointed to by the 
SP is loaded into the PC, and the SP is INCremented by 2. 
Since all stack accesses are sixteen bits long (requiring 2 
bytes in memory), all Stack INCs and DECs are double 
INCs and double DECs. 



Now what about the two routines that were CALLed? 
CLR is a special routine that clears the screen and positions 
the cursor to the HOME position (upper left corner), in one 
of the upcoming issues, I will show you how to write your 
own clear routine. Ths D1SP routine is a little more 
complicated. This routine will display whatever character is 
in the A register, at the current cursor position. Then, the 
cursor position is INCremented by one. If the cursor is at 
the end of the line, it jumps down to the next line. If the 
cursor was at the last position on the last line, the screen is 
scrolled up 1, and the cursor is set to the first position of 
the last line. 

It's hard to believe, but that just about wraps up this 
months issue. I suggest that you try entering and running 
the alphabet display program. Remember, first you enter 
the program with the I command, save it to cassette or 
tape, Assemble it with the A command (saving the machine 
code). Then, run the machine code. By the way, if you 
don't want the program to re-boot after execution (a 
desirable feature with BASIC only systems), replace the "JP 
DOS" or "JP 0000H" with a "JP $". This will cause another 
endless loop (it will Jump to itself until the computer is 
reset). Next month, I will begin by re-structuring this 
program in two different ways. 

Joseph Rosenman 
35-91 161st Street 
Flushing, NY 11358 m 
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COLOR COMPUTER CORNER 
Joseph Rosenman 



This month, I will begin with a review of a book for those 
Color Computer users who have very little background in 
computers. 

TRS-80 Color Basic 

by Bob Albrecht, published by John Wiley & Sons, New 
York, 1982. List price: $9.95 

TRS-80 Color Basic is a well-written and accessible book 
which effectively introduces the novice computer user to 
the TRS-80 Color Computer and Color Computer Basic. 
This book doesn't intend to replace the Radio Shack 
manuals, but provides and easy-going and "fun" guide to 
assist in the learning process. The book only covers the 
"Standard" Color Basic (that is, it doesn't cover "Extended" 
Color Basic). The book doesn't get profound; it carefully 
maintains its focus on the needs and questions of 
beginners. 

How does he do it? He starts by writing a 378 page book 
that includes 1 3 chapters and 1 1 appendices. After assuring 
the readers that there is nothing to fear (and after acquiring 
a "griddleyesque" artist to illustrate the book), the author 
jumped right into a description of the Color Computer. 
Throughout the book, there is a liberal sprinkling of 
"question and answer" sections included. I suppose one 
way to make silicon chips more "appealing" is to compare 
them to multi-legged centipedes. As soon as the equipment 
has been introduced (and given a chance to take a bow), 
understanding the USE of the Color Computer is stressed. 
indeed, one of the strongest points of this book is its 
emphasis on understanding Basic through example. (Need- 
less to say, you MUST have a Color Computer available if 
you want to make effective use of this book.) Each chapter 
opens with an introductory description and a list of goals. 

I mentioned above that this book has 1 1 appendices. It's 
true! Now (as we all know), an appendix can be one of 
three things: a useless appendage that costs several 
thousand dollars to get rid of, a place in a book where you 
can stick unnecessary and incomprehensible details, or (as 
is the case with TRS-80 Color Basic) a place to include 
miscellaneous details, charts, and diagrams that can REALLY 
help. While it may seem silly to all of "us" experienced 
users, there really are people who need to see a big 
diagram of the cassette recorder showing the correct 
buttons to push. Since this book is targeted for beginners, 
the author didn't fail to include such details. Note: the 
appendices also include more complex sections such as a 
list of reserved words, screen location charts, and error 
message descriptions. 

I would recommend this to any person who is a beginner 
on the Color Computer and has no experience on other 
microcomputers. If you have worked through Standard 
Basic, and are. already using Extended Basic, this book 
won't have very much to offer. If YOU are a beginner, 
don't even think twice. Ten dollars for a well written book 
in this field is a real buy. (I have spent as much as fifty 
dollars for Computer Science texts!) 



Ready for some reviews? Good! We start off with 
another winner. 

Color Berserk 



from Mark Data Products, 23802 Barquilla, Mission Viejo, 
CA 92691, 714-768-1551 

System requirements: 16K non-extended or extended 

BASIC. 

Supplied on: Cassette. Joysticks required. 

Disk compatible: Probably. 

Price: $24.95 

This machine language game is another example of what 
Color Computer users should expect out of their machines. 
Model 1/3 users might know of this game as Robot Attack 
from Big Five software (I believe there is also an Atari 
version around). In this game, you suddenly find yourself in 
a (simple) maze with electric walls. If you touch one of the 
walls, ZAP!!! To make matters worse, the maze is filled 
with nasty Laser-wielding robots. Your goal: destroy the 
robots with YOUR Laser before they destroy you. Then, 
escape from the maze. In this game, your man actually 
LOOKS like a man! I was impressed. Anyway, after you 
escape, you will be offered a new maze and more robots. 
You get to be destroyed only three times before you lose 
(an extra man awarded every 5000 points). Ah, but there is 
a catch, "Evil Orville" lurks nearby. You can't destroy Evil 
Orville. Evil Orville appears as a big smiling face, and moves 
quite a bit faster then the robots. One touch from Evil 
Orville and ... it's curtains. This use of color isn't spectacular, 
but it is interesting and appropriate. The same holds true 
for the sound, which is low key but effective. 

Evaluation: An excellent and challenging machine language 
arcade game. I would place this game in the same category 
as Ghost Gobblers from Spectral Associates, and would 
recommend them both hardily. The only complaint I have 
is with the documentation. Instead of including a booklet 
(or even a sheet), the instructions are typed onto the back 
of the cassette packaging. Of course, this packaging must 
be torn in order to use the cassette! 

Sir Eggbert fumper 

from David Dawson, DDF Soft, 10317 N St., Omaha, NE 
68217 

System requirements: 16K Extended BASIC. 
Supplied on: Cassette, Joysticks required. 
Disk compatible: Probably. 
Price: $15.95 (I've seen it advertised for $12.95) 

This is an interesting little game that (especially for 
BASIC) makes impressive use of the color computer. The 
object of the game is to grab a special key (visible on the 
screen), an get to the exit door. Of course, to do this, the 
adventurer must jump from level to level, and avoid an 
occasional unpleasant monster. Jumping and moving is 
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NEW from COMPASS SYSTEMS! 



more Help for Oungeon Masters! 




W 



JUlL 



ffl 






ftr'J ilib iJilL i0DULE » 



Called? 



Spend more time conducting your campaigns and 
leave the paperwork to your apprentice. Your 
humble servant has added three new routines to 
his repertoire: 

• EXPERIENCE • 

• CHARACTER ADVANCEMENT * 

* NON-PLAYER CHARACTER GENERATION • 

Like Module I, in Module II you'll find your apprentice to be an accom- 
plished typist (on any system-compatible printer) and a meticulous 
filer (cassette or diskette). 

AVAILABLE FOR TRS-80, MODELS I and III 

THE 0UN6E0N MASTER'S (OTHMTiGE, MODULE II 
Experience, Character Advancement and MFC's 

CASSETTE (16K. LVL II, minimum) $ig 95 

DISK (32K, 2 Drive, minimum) $29.95 

The Dungeon Master's Apprentice, Module 1 
Character generation 

CASSETTE (16K, LVL II, minimum) $^95 

DISK (32K, 2 Drive, minimum) .' $29*95 



LEGENDS 

of the LOST 
I A It VK I Mil 



ri-9KS 



VmSf*" 



You've heard the stories of the fabled Lost Labyrinth— tales of fabu- 
lous treasure and horrible dangers. Are the legends true? Now is your 
chance to find out! We'll get you inside this wizard's treasure trove. 
Whether you'll ever be heard from again will depend on your powers 
of perception and your quick wits. 

The magic of the Lost Labyrinth is such that each time you enter, you'll 
find a completely new dungeon to explore. And the better you get, 
the more challenging the Legend becomes. 

AVAILABLE FOR TRS-80, MODELS I and II 

LE6EN0S of the LOST LABYRINTH 
A Solo Dungeon Adventure Same 

CASSETTE (32K, LVL II, minimum) $ 19 , 95 

DISK (32K, 2 Drive, minimum) $29.95 



Dealer Inquiries 
Invited 



COMPASS SYSTEMS, INC. 

VILLAGE SQUARE CENTER, BOX 388, E. HAMPSTEAD, N.H. 03826 
(803)329-5603 



VISA & MasterCard 
Accepted 



accomplished with the joystick. 

Evaluation: This program, while being fun, is not extremely 
substantial. The entire "dungeon" is visible on the screen 
(and there for small not complicated). The graphics and 
sound are handled well, and the game does provide some 
challenge. In addition, the price is very reasonable compared 
to other Color Computer software. The instructions were 
complete, but came in several small sheets (photocopied 
from a "modest" resolution matrix printer. I would have 
preferred a somewhat bolder print on 8.5 x 11 paper any 
day. If computer "coordination/skill" games are your thing, 
you will certainly enjoy Sir Eggbert jumper. 

More about Busses 

Several issues back, I had talked about microcomputers 
(in general), and system "busses." In that article, I 
mentioned that the TRS-80 Model 1, 3 and Color 
Computer didn't use buses (all true). I also said that I 
believed the same was true for the Model 2. Recently, I 
needed to open up a Model 2. Inside, I discovered' that 
Radio Shack DID use a bus structure. How could I tell? 
There were several computer cards (special Printed circuit 
cards that contain specific circuitry) that plugged into slots. 
As far as I could tell, any card could plug into any slot. That 
means that the slots conformed to a bus structure. Some of 
you might have heard about the new TRS-80 model 16 
(based on the 16 bit 68000 microprocessor). This new 
computer is built upon the Model 2. A card containing the 



68000 MPU is added to the Model 2 (no doubt, 
accompanied by other changes) to upgrade from a Model 2 
to a Model 16. The reason Radio Shack was able to design 
and implement this upgrade is due to the versatile bus 
structure. 

Joseph Rosenman 
35-91 161st Street 
Flushing, NY 11367 ■ 



■li'-n-ppin; 



FLIP-B-PRHIT ends the problems with constantly 
changing printer cables. FLIP-M-PRIM alloys you 

to connect t«a printers to the line printer port 
on your Hodl/III. Siaply flip the snitch to select 
either printer. Coe-Dlete tb 



printer. Coopletc $54.95 



'b-80/*S-232 AOflf 



„. Connect RS-232 Printer to 

line printer port on Nodl/III, HO SOFTWARE DRIVER 
REQUIRED. Leaves TRS-80 RS-232 port Free for eodee 

!i s 5-, Se Ji &.} 200 baud l or , specify rate (300-9600) 
Hodel TU-80H Coiplete t79.95 

VIRGINIA MICRO SYSTEMS, 13646 Jeff Davis Hwy. 

Woodbridge, VA 22191, (703) 491-6502 

Add S2.00 for Shipping VA Residents add 4% 
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PROGRAM CONVERSION (PART IX) 

Richard Kaplan 



HOW DO I CONVERT MY 123-XY OPERATING SYSTEM 
TO READ QUAD-DENSITY, DOUBLE-SIDED QWX 334/4 
DISKS? 

WILL DIGICALC WORK WITH MY 5-SIDED, 17 
MEGABYTE HARD DISK DRIVE? 

WHY DOES COMPUSORT SORT BACKWARDS WHEN 
RUN ON MY Z29 DISK DRIVES WITH A MAXISOFT 
INTERFACE? 

As some Computronics readers may be aware, a substan- 
tial portion of my time at Computronics is spent providing 
technical support for the many products we write. I would 
venture to guess that at least 20% of all of these technical 
inquiries relate to an operating system incompatibility, such 
as those listed above (admittedly exaggerated). I do not 
mean to parody these callers; my point is simply that the 
abundance of alternative MODEL l/lll operating systems 
has placed many TRS-80 owners in a very confusing situation. 

This article is the first of several I will write (not 
necessarily in consecutive months) dealing with operating 
system difficulties. This month I will explain how to convert 
to/from several popular MODEL l/lll alternative operating 
systems. First, however, I would like to share a letter I 
received recently from Vernon B. Hester, author of 
MULTIDOS, which expands upon my July article: 

Dear Mr. Kaplan: 

I really enjoy your series Program Conversion. / have used 
it to assist several people in converting programs heween 
the MODEL I and the MODEL II. 

In the July issue of Computronics, / noticed several 
omissions. Here is a list of omissions and other available 
features found in DOSs not mentioned in your series: 



HEADING 



OMISSION 



AVAILABLE 



SWAP CM0"F=SWAP",vnl,vn2 NEW00S/80 

ERASE CMD"F=ERASE",vnl NEWDOS/80 

SYSTEM"I" CMD"DIR" LOOS .MULTIDOS 

CHD"I" CMD"XXX" LDOS, MULTIDOS 

We realize that you do not have a copy of MULTIDOS. 
Therefore, please accept these complimentary copies from 
us. 

Sincerely, 

Vernon B. Hester 

Cosmopolitan Electronics Corporation 

Most of Mr. Hester's letter is self-explanatory. However, 
what I feel may be most helpful to MODEL l/lll users is the 
availability of an ERASE function in NEWDOS/80. In July, I 
stated (incorrectly) that it is not possible (easily) to ERASE 
an array on the MODEL l/lll, as is possible with the 
MODEL II. This NEWDOS/80 function can be a real 
time saver for programmers who use strings often, particu- 
larly users of large string arrays. 



WHAT IS AN ALTERNATIVE 
OPERATING SYSTEM? 

An alternative operating system is a substitute for 
TRSDOS, the operating system which virtually every TRS-80 
owner posesses. Alternative operating systems often offer 
significant advantages to users over TRSDOS. These advan- 
tages may include faster disk access, utility programs (such 
as utilities to allow one program to be printed while an- 
other is being entered— a technique known as SPOOLING), 
additional BASIC functions (such as a machine-language 
sort), and MODEL l/lll read/write compatibility, to name 
just a few. 

Operating systems are usually purchased as a single disk, 
similar to a TRSDOS master disk. When this disk is placed 
into the owner's computer, many commands take on a dif- 
ferent format. Each operating system generally has its own 
BACKUP and FORMAT procedures, its own version of 
BASIC, its own syntax for commands such as DIR, etc. This 
leads us to what is likely the most common question among 
all MODEL-I or MODEL-III owners: 

WILL PROGRAM X WORK WITH 
OPERATING SYSTEM Y? 

THE ANSWER: Probably yes, provided that the disks are 
first converted. 

Although commands such as BACKUP and FORMAT 
(operating system commands) are generally "operating 
system-dependent", machine language programs will almost 
always execute on a multitude of operating systems without 
program alteration. Versions of BASIC used by various 
operating systems are also usually standard. 

Most operating systems use the standard MODEL l/lll 
BASIC commands as a base and expand upon this "BASIC" 
(excuse the pun) set of commands by adding more 
functions. As long as these special BASIC commands added 
by each operating system are not used (and frequently they 
are not in commercial software), BASIC programs will be 
portable between operating systems. The only requirement 
is conversion between differing disk formats. 

WHY MUST DISK FORMATS 
BE CONVERTED? 

To TRS-80 owners, it must seem as if there are as many 
disk formats around as there are operating systems. To 
some extent this is because operating system companies 
want their users only to use their DOS (Disk Operating 
System). To a larger extent, however, many operating 
system developers have been quite innovative in developing 
more efficient disk formats which store more data on a disk 
than does TRSDOS. 

A disk written in a very efficient format on a MODEL-I 
("DOUBLE DENSITY", for example, which stores twice as 
much data on one disk as does a standard Tandy disk drive 
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with TRSDOS) cannot be read by TRSDOS. There are 
exceptions (One notable exception— ML) LTI DOS— to be 
discussed later on), but generally a disk created with any 
one operating system may be read by another operating 
system only after performing some type of conversion 
procedure. 

THE ACTUAL CONVERSION TECHNIQUES 

What follows are procedures which may be used to 
convert a program between any two of five common 
operating systems: 



NEWDOS/80 
(version 2) 
MOD I/III 

DOSPLUS 

(version 3,4) 
HOD I/III 

MULTIDOS 
HOD I/III 



TRSDOS 2.3 
MOD I 

TRSDOS 1.3 



Apparat, Inc. 

4401 South Tamarac Parkway 

Denver, CO 80237 

Micro Systems Software Inc. 
5846 Funston Street 
Hollywood, FL 33023 

Cosmopolitan Electronics Corporation 
P.O. Box 89 
Plymouth, HI 48170 

Standard with purchase of any Tandy 
MODEL-I disk drive 

Standard with purchase of any Tandy 
MODEL-III disk drive. 



Users or manufacturers of other operating systems are 
encouraged to submit information pertaining to other 
operating systems for the MODELS I, II, or III. I will be glad 
to include this information in the future. 

DOSPLUS TO NEWDOS/80 

MODEL-! single density users of DOSPLUS need not 
convert a disk at all for use with NEWDOS/80. MODEL-i 
single density DOSPLUS disks are directly readable by 
MODEL-I NEWDOS/80. (Place NEWDOS/80 into drive 
and a DOSPLUS MODEL-I single density disk into drive 1.) 

MODEL-I or MODEL-III double-density users of DOSPLUS 
must convert a disk before it is readable by NEWDOS/80. 
First, the DOSPLUS diskette must be converted to single 
density. This is done by FORMATting a disk in single den- 
sity (by responding "S" when asked for disk density and 
<ENTER> to all other prompts) and COPYing or TRANS- 
FERring programs onto the single-density disk. Note that it 
may be necessary to break one DOSPLUS double density 
disk into two DOSPLUS single density disks. 

MODEL-I users of DOSPLUS may now insert their single- 
density DOSPLUS disk(s) into drive 1 and a NEWDOS/80 
operating system into drive 0. It will then be possible to 
obtain a Dl Rectory of drive 1 or to LOAD and SAVE 
programs. 

MODEL-III users of DOSPLUS should insert a NEWDOS/80 
operating system into drive and their single density 
DOSPLUS disk into drive 1. Now enter the following: 
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SYSTEM REFERENCE CARDS 

"This is a quality document and is beautifully con- 
ceived and produced. ... I am in awe of your mag- 
nificent document. 
H.W.W., Beyfon, ©hie 



Send Check or Money Order 


Card 


Retail 


MODEL 1 BASIC & ASSEMBLER 


$4.95 


MODEL 1 BASIC-ONLY 


2.95 


MODEL II BASIC & ASSEMBLER 


5.95 


MODEL III BASIC a ASSEMBLER 


5.95 


MODEL III BASIC-ONLY 


3.95 


COLOR BASIC AND EXTENDED 


4.95 


POCKET BASIC 


2.95 


APPLE II & II PLUS BASIC 


3.95 


APPLE II & II PLUS BASIC & 8502 


4.95 



MBWl 



NANOS SYSTEMS CORP. 
P.O. BOX 24344 
SPEEDWAY, IN 46224 
(317) 244-4078 
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RAINBOW 

CEBTIUCHTION 



MODEL 1! 

COMMANDS 

AND 

UTILITIES 

3.95 
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MODEL II 

SVC 

2.95 
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•TRS-80 is a BojlsttrM Trad.mar* of Tandy Corp. 
APPLE is • Beg. TM ol APPLE COMPUTER. INC. 
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PDRIVE, 0,9=1 

PDRI VE J , 1 , T I=A , TD=A , TC=35 , SPT=10 , TSR=3 , GPL=2 , 0DSL=1 7 , DDGA=2 

WRDIRP.l 

The PDR1VE commands will literally "fool" NEWDOS/80 
into "thinking" drive 1 is a MODEL-I disk drive. IT WILL 
NOT BE POSSIBLE TO FORMAT OR COPY DOUBLE 
DENSITY (MODEL-MI) disks in this drive until the comple- 
tion of this procedure or until you reboot with a different 
NEWDOS/80 operating system. PDRIVE makes a change on 
your NEWDOS/80 operating system disk which is restored 
to normal upon completion of this procedure. 

Incidentally, the PDRIVE command on NEWDOS/80 is 
perhaps the most powerful command on any operating 
system in existence. This command allows NEWDOS/80 to 
read/write to disk drives of virtually any combination of size 
(5 1/4" or 8"), density, sectors, etc. For anyone who 
intends to do a lot of conversion between operating 
systems (such as commercial software vendors), both 
NEWDOS/80 and MULTIDOS (to be discussed later on in 
this article) can be indispensible tools. 

The WRDIRP command will convert the disk in drive 1 
to MODEL Ill-readable single density format. This disk will 
then be directly readable by MODEL-HI NEWDOS/80. 

You should now COPY your files from drive 1 to drive 0. 
When this is done, the following command should be 
executed in order to restore your drive # 1 to normal: 

PDRIVE J, 1=9 

NEWDOS/80 TO DOSPLUS 

MODEL-I single density NEWDOS/80 disks are directly 
readable by MODEL-I DOSPLUS. Similarly, MODEL-MI 
single density NEWDOS/80 disks are directly readable by 
MODEL-MI DOSPLUS. Simply insert DOSPLUS into drive 
and a NEWDOS/80 disk into drive 1. 

MODEL-I and MODEL-HI double density users of 
NEWDOS/80 must first convert their disk(s) to MODEL l/lll 
single density before they are readable by DOSPLUS. To do 
so, it is necessary to FORMAT a new disk in drive 1 by 
executing the following commands: 

PDRIVE.0.9=1 

PDRIVE, J3 . 1 . TI=A . TD=A. TC=35 . SPT=1J3 , TSR=3 , GPL=2 . DDSL=17 . D0GA=2 

FORMAT,! 

As with the DOSPLUS to NEWDOS/80 technique described 
above, the PDRIVE commands temporarily transform drive 
1 into a MODEL-I disk drive. 

After FORMATting the disk in drive 1, you should COPY 
your double density files onto that disk. The disk in drive 1 
will then be readable by DOSPLUS. 

The 'following command should then be executed in 
order to restore your drive # 1 to normal: 

PDRIVE J, 1=9 

TRSDOS 1.1, 1.2, & 1.3 TO DOSPLUS 

MODEL-III users of DOSPLUS, unlike MODEL-I users, 
will find that it is not possible to read TRSDOS disks with 
DOSPLUS. Since most purchasers of DOSPLUS wish to 



convert their old files, the designers of DOSPLUS incorpo- 
rated a conversion utility to perform this task. 

First, it is necessary to define TRSDOS 1.1 and TRSDOS 
1.2, since these operating systems are no longer distributed 
by Radio Shack. TRSDOS 1.1 and TRSDOS 1.2 were the 
first two versions of MODEL-III TRSDOS. Each had severe 
errors, and they have now been replaced with TRSDOS 1.3. 

Why would anyone still own TRSDOS 1.1 or 1.2? Most 
people would have no need for these versions of TRSDOS. 
However, the ROUTE command (which routes output 
between the RS-232 port, the printer, and the keyboard) 
does not exist in TRSDOS 1.3. Therefore, anyone who has a 
need for this command might still be using the older 
version of TRSDOS. Fortunately, DOSPLUS, which does not 
have severe errors, has a direct equivalent of ROUTE - 
RS232. 

(As an aside, I might point out that the deletion of 
ROUTE from TRSDOS 1.3 is an undocumented change on 
Tandy's part. Rumor has it that certain combinations of this 
command would result in ludicrous results, such as the 
printer's wildly feeding paper. As a result, the command 
was deleted. It still does appear, however, when the LIB or 
HELP commands are executed; this may cause some 
confusion among MODEL-IM users.) 

After digressing so much, I will now explain how to 
convert a TRSDOS 1.1 or 1.2 disk to DOSPLUS 3.4. Simply 
insert a DOSPLUS operating system into drive and a 
TRSDOS disk into drive 1. Then enter the following: 

CONVERT :1 :0 <ENTER> 

(Note the spaces before the colons.) 

This command will move all of your TRSDOS files in drive 
1 onto your DOSPLUS disk in drive 0. The equivalent 
command for TRSDOS 1.3 would be the following: 

CONVERT :1 :0 (V13) <ENTER> 

DOSPLUS TO TRSDOS 1.1, 1.2 OR 1.3 

In order to transfer a MODEL-III DOSPLUS disk to 
MODEL-III TRSDOS, it is necessary to first create a 
MODEL-I format disk. This MODEL-I format disk may then 
be run through Tandy's CONVERT routine, which is 
included and documented in every MODEL-III release of 
TRSDOS. 

To create a MODEL-I format disk, insert DOSPLUS into 
drive and a blank disk into drive 1. Then FORMAT the 
disk in drive 1, answering "S" to the prompt for disk 
density and "35" to the prompt for "Number of Cylinders". 
Now you should COPY or TRANSFER your MODEL-III 
DOSPLUS double density files to your newly-made 
MODEL-III DOSPLUS single density disk. It may be 
necessary to use two disks for this. 

The disk in drive 1 (onto which your files have been 
TRANSFERred or copied may now be run through the 
CONVERT routine of TRSDOS. To do this, your DOSPLUS 
single density disk should be inserted into drive 1 and 
TRSDOS should be inserted into drive 0. Then type the 
following: 

CONVERT :1 :0 <ENTER> 

(Note the spaces before the colons.) 
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Your single density DOSPLUS files will now be transferred 
to drive 0. 

TRSDOS 1.1, 1.2 OR 1.3 TO NEWDOS/80 

In order to convert a MODEL-III TRSDOS disk to 
NEWDOS/80, it is necessary to first execute the following 
while your NEWDOS/80 operating system is in drive 0: 

PDRIVE, 0,9=1 

PDRIVE ,0,1, TI=AM , TD=E , TC=40 , SPT=18 , TSR=3 , GPL=6 , 0DSL=17 , DDGA=2 



These commands "fool" your computer into reading 
disks in drive 1 in TRSDOS format. This will be reversed 
when the conversion is complete. 

Next, you should COPY all your files from drive 1 to 
drive 0, When this is done, the following command should 
be executed: 

PDRIVE,0,1=9 

NEWDOS/80 TO TRSDOS 1.1, 1.2 OR 1.3 

In order to convert a disk from NEWDOS/80 to MODEL- 
III TRSDOS, it is first necessary to execute PDRIVE 
commands, as follows: 

PDRIVE, 0,9=1 

PDRIVE J , 1 , TI=AH , TD=E , TC=40 , SPT=18 , TSR=3 , GPL=6 , DDSL=17 , DDGA=2 

At this point, you should COPY your files on drive to a 
MODEL-III TRSDOS disk in drive 1. Finally, the following 
command should be executed to restore your drive # 1 to 
normal: 

PDRIVE,0,1=9- 

CONVERSION BETWEEN TRSDOS, 
DOSPLUS OR NEWDOS/80 AND 
MULTIDOS 
Probably the most versatile of all operating systems 



regarding differing disk formats is MULTIDOS. MULTIDOS 
can read/write to virtually all popular operating sytems 
without any conversion whatsoever. In other words, 
MULTIDOS CAN AUTOMATICALLY RECOGNIZE VARYING 
DISK FORMATS WITH NO OPERATOR INTERVENTION 
REQUIRED. 

With MODEL-III MULTIDOS, disks formatted by 
NEWDOS/80, DOSPLUS, VTOS, LDOS, or DBLDOS may 
be inserted into drive 1. After inserting MULTIDOS into 
drive 0, any of the disks mentioned in the preceding 
paragraph may be read from/written to without any 
conversion procedure. 

(NOTE: There are some restrictions upon compatibility 
with MODEL-III NEWDOS/80 and the MODEL-III and 
upon several operating systems and the MODEL I; these 
restrictions are explained in the manual— there is no need 
to reiterate that material here.) 

The only MODEL-III operating system mentioned which 
is not directly readable by MULTIDOS is TRSDOS. A 
conversion utility is provided to read TRSDOS disks. It is 
not possible to write or convert directly to TRSDOS disks, 
which is one drawback to MULTIDOS. (Of course, it is 
possible to save a progam on DOSPLUS or NEWDOS/80 
and then transfer to TRSDOS.) 

MULTIDOS is an excellent transfer medium for operating 
system conversions. If there is a combination of operating 
systems between which is is not possible to convert files, it 
will most likely be possible to first convert to MULTIDOS 
and then to the desired operating system. 

"LAST RESORT" TECHNIQUES 

In the event that a user of a MODEL l/lll encounters a 
group of operating systems between which it is absolutely 
imposible to convert disks, there are two little-known 
techniques which may be used between many operating 
systems: BASIC * and cassette transfer. 

Many operating systems enable users to enter the 
operating system and return to the previous BASIC program 
through the command "BASIC *". This command may be 




LEAPER! 



"Big Five: EAT YOUR 
HEART OUT!" 

—the Gamester 



Go Frog Go! 

Our MISADVENTURE SERIES consist of CHALLENGING 
and FUN "adventure-type" programs that may occasion- 
ally be a bit naughty! 

MYSTERY OF THE KEYS for the color computer is a 
graphic puzzle as addicting as "The Cybe" and similar to 
"The Link" . 4k and up. 

DOHNE' BUGG is our best-selling ADVENTURE-DE- 
CODER! Are you STUCK in a machine-language 
ADVENTURE GAME? This program will display on the 
screen all VERBS that interact in the game, all 
LOCATIONS & OBJECTS you will find, and ail ACTIONS 
that result! A MUST FOR THE SERIOUS ADVENTURER! 

Ail programs are presently available in cassette form. 



MISADVENTURE SEBtES— model I & 111 16k 

#201 (#1) Madam Rosa's Massage Parlor* $15,00 

#202 (#2) Wet T-Shirt Contest* $1 5.00 

#203 (#3) Sewers of Moscow**— with sound 1 $15.00 

#204 (#4) Casino, of Pleasure**— with sound! $15.00 

#205 (#5) Naked Nightmare**— with sound 1 NEW! $15.00 
"not as hard "experience recommended 

ABCADE-TYPE GAMES-model I & III 16k 
#302 Block Breaker by Cedar Software— with sound! 

i 
#303 Leaper by Cedar Software— NEW!— with sound! 



ADVENTURE DECODER-mode) I & 111 16k 
#301 Dohne' Bugg (Adventure-decoder) 



$14.95 
d! 
$15.95 

$15.00 



COLOR COMPUTER— games and Misadventures 
#401 Mystery of the Keys (4k)— with sound 1 $15.00 

#501 (#1) Madam Rosa's Massage Parlor (1 8k) — 

with sound! $15,00 

#502 (#2} Wet T-Shirt Contest (16k)— with sound: $15.00 

Immediate shipment! Check, credit cards, or phone 
orders [12-6 p.m.) Dealers and distributors welcome— 
please inquire! HINT SHEETS AVAILABLE! 




THE SOFTCORE 
SOFTWARE CO. 

9 SouShmoor Circle, Keitenng, OH 45429 



a 



"TOO MUCH" 

FOR 
RADIO SHACK! 

Radio Shack REFUSED to 
include MISADVENTURE 
#1 in their SOURCEBOOK 
dye to our description of 
the game! 
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used in a slightly different manner. 

If you are using a BASIC program in DOSPLUS and wish 
to transfer the program onto TRSDOS, the first thing to do 
is boot up with DOSPLUS and load the program. Then, with 
the program in memory, reboot with TRSDOS, and when 
"TRSDOS READY" returns, enter the following: 

BASIC * <ENTER> 

(Type "*" but not the O's.) 

Now, SAVE your program on your TRSDOS disk. 

The preceding technique definitely does work between 
DOSPLUS and TRSDOS. It is possible that it also works 
between other operating systems. 

When dealing with BASIC programs, the absolute last 
resort, which will work with virtually any combination of 
operating systems, is to save a program on cassette with 
one operating system and load it in with the other system. 
This is a fairly long technique, but it sure beats keying in a 
program!! 

This concludes this month's tips on program conversion. 
As always, I would appreciate any reader feedback, particu- 
larly regarding operating systems. If you have a shorter 
method to convert between operating systems, or if you 
know of an operating system I have not covered, please 
send me the information. Of course, any inquiries about 
MODEL I, MODEL II, MODEL III, APPLE, CP/M incom- 
patibilities are always welcome. 

NOTE TO MODEL-II USERS 

Although no material pertaining to the MODEL-II was 
presented this month, I do intend to continue writing 
about the MOD-II. Particularly, I am interested in the 
MODEL-II version of DOSPLUS when it becomes available. 
Any information readers can provide would be most wel- 
come. 

In addition, if any MODEL-II user has any information 
regarding MOD 11/16 compatibility, it would be greatly 
appreciated. At present, it seems that these computers 
really are 100% compatible, but when the MODEL-IN was 
first released Tandy said it was 100% compatible with 
MODEL-I programs. Need I say more? 

Richard Kaplan 

H & E Computronics 

50 N. Pascack Road 

Spring Valley, NY 10977 ■ 



CASH FLOW ANALYSIS 

continued from page 31 

2130 IF 0P=1 THEN PRINT USING C$;0,0,0 ,0,Z(0,4) ,0,Z(0,6) 

2140 IF 0P=2 THEN LPRINT USING C$;J3 , J3 ,0, 0, Z(J3 , 4) ,)3 ,Z (J3 , 6) ,J3 

2145 IF 0P=4 THEN LPRINT USING C$;0,0,0,0,Z(0 4) 

215)3 ST=0 

2160 REM INFLAT 

2170 SR=RR : ST=0 : FOR 1=1 TO YS-1: FOR J=l TO 4- 

IN(J)=(l+IM(J))tI : NEXT J : 

Z(I,9)=IN(1)*Z(I,1)-IN(3)*Z(I,3)-Z( I,5)-Z(I,7) : IF 1=1 THEN 

Z(1,9)=Z(1,9)+Z(0,9) 

2190 IF SS=1 THEN Z(I, 11)=CG*Z(I, 10)*(IN(2)*Z(I,2) - 



IN(4)*Z(I,4)) ELSE Z(I,11)=0 

2200 D6=Z(I,10)*Z(I,9) : KS=I/13 : KS=KI*13 : KK%=I:IF SS <>1 

THEN Z(I,9)=Z(I,9)+IN(2)*Z(I,2) 

2205 IF S=l AND Z(I,11)<0 THEN PRINT "CAPITAL LOSS - TAXABLE 
INCOME ADJUSTED":Z(I,9)=Z(I,9)+Z(I,11)/Z(I, 10) 

2210 IF D6>0 THEN Z(I, 11)=Z(I,11)+D6 

2220 Z(I,12)=Z(I,9)-Z(I,11)-Z(I,4)*IN(4)+Z(I,5)-Z(I,8)+ 

Z(I,6): IF SS=1 THEN Z(I,12)=Z(I,12)+Z(I,2)*IN(2) 

2230 X=(l+R)tl: SR=SR+Z(I,12)/X: IF Z(I,9)<0 THEN ST=ST+ 

Z(I,9)*Z(I,10)/X 

2240 IF 0P=1 THEN PRINT USING C$; 

I,Z(I,1)*IN(1),Z(I,2)*IN(2),Z(I,3)*IN(3),Z(I,4)*IN(4),Z(I,5), 

Z(I,6): IF KS=KKS THEN INPUT "ENTER TO PAGE" ; R$ 

2250 IF 0P=2 THEN LPRINT USING C$;I, Z(I,1)*IN(1) , 

Z(I,2)*IN<2), Z(I,3)*IN(3), Z(I,4)*IN(4), Z(I,5), Z(I,6), 

Z(I,7) 

2260 Z(I,13)=Z(I,12): IF Z(I,9)<0 THEN Z(I,13)= 

Z(I,13)-Z(I,10)*Z(I,9) 

2270 IF 0P=3 THEN LPRINT USING C$;I, Z(I,1)*IN(1), 

Z(I,2)*IN(2), Z(I,3)*IN(3), Z(I,4)*IN(4) , Z(I,5), Z(I,6), 

Z(I,7), Z(I,8), Z(I,9), Z(I,10), Z(I.II), Z(I,12), Z(I,13 ) 

2275 IF 0P=4 THEN LPRINT USING C$;I, Z(I ,1)*IN(1) , 

Z(I,2)*IN(2), Z(I,3)*IN(3), Z(I,4)*IN(4) 

2280 NEXT I 

2290 FOR 1=1 TO 3:E(I)=0: NEXT I 

2300 FOR I=YS TO G:E(1)=E(1)+Z(I,2) : E(2)=E(2)+Z(I,5) : 

E(3)=E(3)+Z(I,8): NEXT I 

2310 FOR J=l TO 4:IN(J)=(1+IM(J))T(I-1): NEXT J : I=YS : 

Z(I,9)=IN(1)*Z(I,1)-IN(3)* Z(I,3)-D5-Z(I,7) 

2330 IF SS=1 THEN Z(I,11)=CG*Z(1, 10)*(IN(2)*E(1) - 

E(2)+D5-IN(4)*Z(I,4)) ELSE Z(I,11)=0 

2340 D6=Z(I,10)*Z(I,9):IF SS <>1 THEN Z(I,9)=Z(I,9)+ 

IN(2)*Z(I,2)-Z(I,5): Z(I,11)=Z(I,9)*Z(I, 10) : IF Z(I,11)<0 

THEN Z(I,11)=0 

2345 IF SS=1 AND Z(I,11)<0 THEN PRINT "CAPITAL LOSS - TAXABLE 

INCOME ADJUSTED" :Z(I,9)=Z(I,9)+Z(I,11)/Z(1, 10) 

2350 IF D6>0 THEN Z(I, 11)=Z(I, 11)+D6 

2360 Z(I,12)=Z(I,9)+E(2)-E(3)-Z(I,11) + Z(I,6):IF SS=1 THEN 

Z(I,12)=Z(I,9)+D5-E(3)-Z(I,11)+E(1)*IN(2)+Z(I,6) 

2370 X=(l+R)tI:SR=SR+Z(I,12)/X:IF Z(I,9)<0 THEN 

ST=ST+Z(I,9)*Z(I,10)/X 

2380 IF 0P=1 THEN PRINT USING C$;I,Z(I,1)*IN(1) , 

E(1)*IN(2),Z(I,3)*IN(3),Z(I,4)*IN(4),E(2),Z (1,6) 

2390 IF 0P=2 THEN LPRINT USING C$;I,Z(I, 1)*IN(1) , 

E(1)*IN(2),Z(I,3)*IN(3),Z(I,4)*IN(4),E(2),Z (I,6),Z(I,7) 

2400 Z(I,13)=Z(I,12):IF Z(I,9)<0 THEN 

Z(I,13)=Z(I,13)-Z(I,9)*Z(I,10) 

2410 IF 0P=3 THEN LPRINT USING C$;I,Z(I, 1)*IN(1) , 

E(1)*IN(2), Z(I,3)*IN(3), Z(I,4)*IN(4), E(2),Z(I,6), Z(I,7), 

E(3), Z(I,9), Z(I,10), Z(I.ll) . Z(I,12),Z(I,13) 

2415 IF 0P=4 THEN LPRINT USING C$;I, Z(I,1)*IN(1) , 

E(1)*IN(2), Z(I,3)*IN(3), Z(I,4)*IN(4) 

2420 IF 0P=1 THEN INPUT"ENTER TO PAGE";DU$ 

2430 IF 0P=2 THEN LPRINT" " 

2440 IF 0P=1 THEN PRINT A$(l);: FOR 1=8 TO 12: PRINT A$(I);: 

NEXT I : PRINT A$(13);: PRINT A$(14);: FOR 1=21 TO 25: PRINT 

A$(I);: NEXT I: PRINT A$(26) 

2450 IF 0P=2 THEN LPRINT A$(l);: FOR 1=9 TO 13: LPRINT 

A$(I);: NEXT I: LPRINT" ADJUSTED ": LPRINT A$(14); : FOR 1=22 

TO 26: LPRINT A$(I);: NEXT I: LPRINT " $ FLOW" 

2456 IF 0P=4 THEN LPRINT " ": LPRINT A$(l);: FOR 1=6 TO 9 : 
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LPRINT A$(I);: NEXT I: LPRINT : LPRINT A$(14); : FOR 1=19 TO 

22: LPRINT A$(I) ; : NEXT I: LPRINT 

2460 IF OP=l THEN PRINT USING CD$;0 ,0 ,0 ,0 ,0 ,0,RR 

2470 IF 0P=2 THEN LPRINT USING CC$;0,0,0 ,0 J.RR.RR 

2475 IF 0P=4 THEN LPRINT USING C$;0,jB,Z(0,6) J J 

2480 K=0:FOR 1=1 TO YS:K=K+1:EE=Z(I,8) :IF I=YS THEN EE=E(3) 

2490 IF OP=l THEN PRINT USING 00$; I, Z(I,7), EE, Z(I,9), 

Z(I,10), Z(I,11), Z(I, 12) 

2500 IF 0P=2 THEN LPRINT USING CC$; I, EE, Z(I,9), Z(I,10), 

Z(I.ll), Z(I,12), Z(I, 13) 

2505 IF 0P=4 THEN LPRINT USING C$; I, Z(I,5), Z(I,6), Z(I,7), 

Z(I,8) 

2510 IF 0P=1 THEN IF K=13 THEN K=0: INPUT" ENTER TO PAGE";DU$ 

2520 NEXTI 

2521 IF 0P<>4 THEN 2530 

2522 LPRINT " ": LPRINT A$(l);: FOR 1=10 TO 13:LPRINT A$(I);: 
NEXT I: LPRINT: LPRINT A$(14);: FOR 1=23 TO 26: LPRINT 
A$(I);: NEXT I: LPRINT 

2523 LPRINT USING CXJJJJJ.RR 

2528 FOR 1=1 TO YS:K=K+1:EE=Z(I,8) :IF I=YS THEN EE=E(3) 

2529 LPRINT USING CX$;I,Z(I,9) ,Z(I,10) ,Z(I, 11) ,Z(I, 12) :NEXT 

2530 H$="D1SC0UNT CASH" : H1$="DISC0UNT TAX SAVINGS" : 
H2$=" DISCOUNT CASH AND TAX SAVINGS " : T=SR-ST: IF 0P=1 THEN 
PRINT H$;SR,H1$;ST,H2$;T; 

2540 IF 0P>1 THEN LPRINT H$;SR: LPRINT Hl$ ; ST : LPRINT H2$,T 

2550 IF 0P=1 THEN INPUT"HIT RETURN" ;R$ 

2560 SR=0 : ST=0 : IF 0P>1 THEN FOR 1=1 TO 4: PRINT'TOR PRINT 

OUT" : INPUT A$ : LPRINT A$ : NEXT I 

2570 PRINT"RECYCLE MENU" 

2580 PRINT" 1 REGULAR INCOME" 

2590 PRINT" 2 CAPITAL INCOME" 

2600 PRINT" 3 YEARLY EXPENSES" 

2610 PRINT" 4 DEPRECIATION" 

2620 PRINT" 5 MORTGAGES" 

2630 INPUT" 6 INFLATION ETC."; 1X2: IF U%<1 OR IXI>6 

THEN 2570 

2640 ON U% GOTO 130 ,350 ,400 ,560 ,1100 ,1500 

2650 REM TAX SUB 

2660 INC=0I+Z(I,9) 

2670 IF INC<0 THEN Z(I,10)=0:RETURN 

2680 IF RB$="R" THEN 2720 

2690 FOR K=l TO ZZ-1:Z(I, 10)=TAX(K-1,3) 

2700 IF INC>TAX(K-1,1) THEN IF INC<TAX(K,1) THEN RETURN 

2710 NEXT K: RETURN 

2720 SX=0: SUM=0 : FOR K=l TO ZZ-1 : Z(I,10)=TAX(K-1,3) : 

SUM=SUM+TAX(K,2) : SX=SX+TAX(K, 1) 

2730 IF INOTAX(K-l.l) THEN IF INC<TAX(K,1) THEN 2750 

2740 NEXTK : K=ZZ 

2750 DT=INC-SX:IF DT<0 THEN 2790 

2760 SUM=SUM+DT*Z(I,10) 

2770 Z(I,10)=SUM/INC:IF Z(I,10)<0 THEN Z(I,10)=0 

2780 RETURN 

2790 Z(I,10)=SUM/SX:IF Z(I,10)<0 THEN Z(I,10)=0 

2800 RETURN 

SUMMARY 

This program calculates the cash flows resulting from a 
real estate or other type investment and calculates a 
measure of the present worth of the cash flows based on 
the classic internal rate of return concept. The program can 
be used to model many different investment situations. The 
user can control all aspects of the investment. 

The model is a good approximation of real life. It is not 



perfect. Care should be used when you are not sure of any 
particular application. When in doubt, check yourself 
manually until you understand the abilities and limitations 
of this model. 

Steven M. Zimmerman, Ph.D. 

College of Business and Management Studies 

University of South Alabama 

Mobile, Alabama 36688 

Leo M. Conrad 

Imagineering Concepts 

P.O. Box 9843 

Mobile, Alabama 36691-0843 m 



ARRAY OF HOPE FOR BASIC PROGRAMMERS 
continued from page 19 

is reached by a positive pointer, and right branches if it is 
reached with a negative pointer. Whenever a right pointer is 
to be used the element is summed. Starting at element 1 the 
elements will be traversed in the sequence (1), 3, 5, 1, (2), 
7, 2, 4, and 6 where the elements in parentheses are only 
used to find the next element in sequence and will not be 
summed at that point. Later we shall insert elements in the 
tree and perform a non sequential search, but here we shall 
look at the code required to traverse the tree in key 
sequence. 

The tree is assumed to be stored in an array defined with 
dimension A(Max,2), the key value is in A(I,KEY), the left 
pointer in A(I,LEFT), the right pointer in A(l, RIGHT), and 
ROOT points to the root node of the tree. If ROOT is zero, 
then there are no elements present in the array. The code to 
traverse the tree could be as follows: 

10 KEY = 0: LEFT = 1: RIGHT = 2 



100 IF ROOT = THEN PRINT "Tree empty"- GOTO 170 

110 NXT = ROOT 

120 IF A(NXT.LEFT) > THEN NXT = A(NXT.LEFT): GOTO 120 

:REM Continue until left pointer zero 
130 PRINT A(NXT.KEY) :REM To be printed or summed 
140 NXT = A(NXT, RIGHT) : REM Follow right branch 
150 IF NXT < THEN NXT = -NXT: GOTO 130 

:REM Element reached with negative pointer 
160 IF NXT > THEN 120 

:REM Element reached with positive, try left path 
170 PRINT "Traversal end" 

Perhaps it would be an idea to try following through the 
code for the small tree shown in the diagram. It should be 
relatively easy to follow, and the nodes should be visited in 
the sequence mentioned in the text. 

This seems to be an appropriate point to finish with 
sequential searching techniques, and to start looking at some 
non-sequential search techniques. 
(To be continued) 

Arne Rohde 
Pilevej 31 

7600 Struer, Denmark ■ 



•CQMPLJTRQMCSi 



October 7982 47 



COTTAGE COMPUTERY COMES OF AGE 
Michael Herbert Shadlck 



The very first UN1VAC computer was, of course, a 
vacuum tube affair (remember them?) which occupied two 
fuli floors and a large portion of another in one of 
Manhattan's most stellar skyscrapers. Today, a single 
sophisticated microchip— small enough to fit on the tip of 
your finger— contains more RAM power, any way you 
utilize it, than three of those archetypal UNIVACs. 

So how far has the computer age really come? For the 
past several years, the stuff of which personal computery is 
composed (hardware, software, and the operator's own 
"brainware") has rapidly been approaching the stage where 
large numbers of homeloving workers (perhaps including 
you and me?) are enjoying full-fledged membership and 
participation in the business world-^-from the comfort of 
our dens, or anywhere else in the world, for that matter! 
Truly, we are no longer on a threshold; we are in the very 
midst of personally witnessing the coming of an unprece- 
dentedly dynamic era— the era of cottage computing. 

Webster has defined "cottage industry" as any means of 
livelihood, the main income thereof which is chiefly derived 
from work conducted in or around the home. America 
before the industrial revolution of the mid and late 1800s 
was a coast-to-coast beehive of cottage industrial activity. 
Farmers, blacksmiths, shoemakers, potters, and other 
tradesmen of every then-known variety earned their living 
in their homes. That is where they made their wares, and 
that is where the people who wanted them came to 
purchase them. In other words, the cottage worker was, in 
the truest possible sense of the term, an I/O conduit for 
goods and services. He or she was a processor, if you will! 
With the fiery advent of the steam locomotive (and later 
the automobile), millions of our young nation's human 
processors began to see some very attractive alternatives to 
cottage industry, and new industrial centers, cleverly 
disguised as cities, began popping up all over the place. Lo 
and behold, the smithys began foregoing their forges, in 
favor of earning an hourly wage and, perhaps, getting one 
of those newfangled contraptions called a telephone. 

Little did Mr. Bell and his inventive peers realize that 
they were laying the groundwork (quite literally) for what 
would one day make their industrial revolution look, in 
comparision, like a tempest in a teapot. For it is the 
telephone, or more precisely the communications network 
it represents, that is making possible the new industrial 
revolution of which we ourselves are a pioneering and, I 
dare say, pivotal part. 

The computer. The telephone. And we mustn't forget 
that vital link between them, our mighty little friend, the 
Modem. It is to these three indispensible components of 
cottage computery— and to the people whose very lives are 
increasingly being liberated by them—that I would like to 
address myself in this article. 

Shelly Patterson is a typist. Not a particularly fast one, 
but very accurate. She is also eight months pregnant. "She 
was making very good money as a legal secretary," her 
husband Hank told me, "but we both felt that, after the 
blessed event, something would have to suffer— either the 



job or the child. We opted for our family-to-be. 

At first this posed a rather serious problem for the 
Pattersons— how to keep their household income up at a 
time when they need it more than ever, and still give their 
child the nurturing which they feel is its birthright. 

"There was only one way to go," as Shelly explains it. "I 
had to find some viable at-home employment." The 
Pattersons considered a number of job possibilities, ranging 
from telephone sales work to stuffing envelopes for a 
direct-mail firm. But none of those alternatives took full 
advantage of Shelly's typing skills and experience. 

"Y'know," Hank recalls with a grin, "sometimes you 
learn about things in the most unexpected ways. I was 
sitting in the barber shop a couple of months ago, and this 
guy waiting next to me says, right out of the blue, 'My 
God!'" 1 looked over at him, and saw he had been reading 
an article in a very shopworn magazine, about computers. 
'Look at this,' he says to me, pointing to something in the 
magazine. 'Now you can write somebody a letter electron- 
ically—and they'll receive it almost before you send it! Isn't 
that amazing?' Well sir, I didn't quite find it cause for 
cussing, but it was interesting. And it got me to thinking- 
Shelly types many letters every day in the law office where 
she works. If she had some way to receive and send 
information electronically, she could do much the same 
work at home— maybe even while nursing the baby!" 

Well, to make a 64-Megabyte story short, Hank mentioned 
the idea to his wife, who in turn talked it over with the law 
firm partners— and they informed her that they already had 
half the hardware and most of the software necessary! It so 
happened that one of the partners had recently purchased 
a personal computer along with a modem, so it was 
relatively easy and equally economical for the firm to adapt 
his system for office use. The partners decided to lease a 
small but powerful word-processing system for Shelly's use 
in her home, for as long as she wanted to work for them 
from there! 

Once set up, it took little more than a week or two for 
Shelly and her employers to iron out the few bugs in the 
system. As things stand right now, Shelly is doing almost 
the identical work that she did at the office— with slightly 
improved efficiency of output— all from the nursery! 
' "It's very nice for me and her," Hank remarked to me 
recently, "and it'll be even nicer for the four of us!" 
(Shelly, her doctor confirms, is now expecting twins.) 

In the 1980s (already being hailed as "the decade of 
software") we are already beholding what can only be 
termed— and even then with a certain understatement of 
reality— a programming explosion. From three-dimensional 
computer generated graphics to digital typesetting, from 
light pen CRT manipulation magic to any number of even 
more exotic computer-linked applications, the software 
revolution— completely without precedent though it may 
be— seems to have only begun! in investigating the myriad 
forms of cottage computery available today, and becoming 
available tomorrow, 1 have— because of my background in 
music— decided to devote part of this article to the subject 
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of microprocessing sound (read "music") generators and 

their software associations. 

Those of you who are familiar with the profound 
influence which electronics in general (and the sound 
synthesizer in particular) have had on the music world, 
even before the development of the personal computer, 
have probably heard the rather spacy-sounding brand 
names of "Arp" and "Moog," the two most popular 
synthesizers on the market. They've been around, though 
not in their present forms, for decades. What hasn't been 
around very long, however, is the capacity to program them 
digitally. This means that for the first time in musical 
history, a composer can hear the finished product of his 
noteable labors in all (or at least most) of its fully- 
orchestrated glory— before a single musical note has been 
written, Beethoven, Tchaikovsky, et a/., would have had 
veritable fits of ecstacy, had they enjoyed the capabilities 
of today's "smart" compositional microprocessors. In addi- 
tion—and this by no means incidentally— those long- 
deceased symphonic hitmakers and their contemporaries 
would have been able to do more composing— much more, 
most likely. For this is what today's musically-programmed 
home computers free the composer to do! 

"The great classical composers did all their own orches- 
tration," explained a songwriter friend of mine, "but since 
that romantic era, there has been— or I should say was a 
movement towards the composer enlisting someone else, 
an arranger, to orchestrate his or her own works. The sheer 
labor involved, you see, in writing different musical parts 
for every single instrument and voice you want to use, note 
by note, boggles the minds of most modern composers! 
But recently, there has been a most historically-unexpected 
countermovement, if you will: an as-yet mild but nonethe- 
less noticeable tilt back to the composer doing his or her 
own orchestral thing from start to finish. This is happening, 
of course, in large measure because of the musical talents, 
so to speak, of today's personal computers with appropriate 
programs. If you yourself haven't as yet seen or heard what 
certain software applications can do, I dare say you won't 
be able to believe your eyes and ears, the first time you 
experience it. / sure couldn't!" 

One such software system, offered by the California- 
based Symtec, Inc., is based on a sound-synthesizer card 
for the Apple II (among others). The card's technical 
functions aside, what it does is liberate the composer from 
the often tediously time-consuming chore of "hand-notat- 
ing" his arrangements. Now the entire scores of his 
compositions can be printed out, measure by measure and 
even instrument by instrument, through the use of a 
graphics printer integrated into the Symtec system. And 
that operation— which is one of the last steps in the music 
orchestration process— is only the beginning of what an 
appropriately-programmed Symtec card can do: 

• Its music-composing (you read right) software provides 
for entry and editing of the entire score, using keyboard 
commands. 

• Sound orchestrations can be produced (in stereo or 
quad matrices) using multiple cards. 

• Up to twenty-one voices (instruments) can be accessed 
by the user with a complete compliment of SSG (Super 
Sound Generator) cards. 



• Perhaps most useful (and amazing) of all, at least 
from an itinerant composer's standpoint (most of whom are 
neither conspicuously well-off nor well-known) is that the 
basic price of your SSG software is under $200, and is 
compatible with a wide variety of personal computers. 
Which means that a home-based composer— or a creative 
musical hobbyist, for that matter— needn't go elsewhere, 
and needn't shell out the necessarily steep sums being 
charged for today's recording studio time, in order to 
orchestrate his or her own works and then hear how they 
sound. 

"It's very much," my musical friend claims, "like having a 
fully-instrumented symphony orchestra on floppy disks, 
under your own baton." 

Brahms, eat your heart out! 

Those of you readers who recall the old-time hot lead 
print shops of a now (nearly) bygone day, probably know 
what a Merganthaler Linotype machine looks like (they can 
still be found in use today, I understand). The Linotype 
machine resembles a gigantic Rube Goldberg contraption at 
its craziest, with a seemingly endless array of various and 
sundry levers, wheels, pulleys and racks, all moving at what 
appears to be cross-purposes to each other, but in fact 
operating in a magnificently well-coordinated manner, for 
the purpose of casting molten metal (SSSSST!) into 
finished, press-ready galleys of solid type. This is exactly 
what emerged from the Linotypes— letter by letter, word by 
word, publication by publication, for almost a century— at 
the skilled hands of thousands of sweaty Linotype operators. 

Now imagine, if you can, having one of Mergenthaler's 
ungainly contraptions— complete with its attendant kettle 
of hot lead— in your home. Ludicrous, is it not? Yet its 
modern-day equivalent is exactly what you'll find in the 
homes, apartments and condominiums of a rapidly growing 
number of cottage compositors. Compositor, by the way, is 
a fancy word for typographer— and these profitably homely 
folks are, quite literally, setting type by telephone. 

The bomebound compositor can use a modem to 
interface a home computer (with word processing software) 
through phone lines wyth a companion computer or 
typesetter at the printing house which employs them. The 
home compositor can place special codes into the text that 
specify the type size, font (typestyle) and spacing that is to 
be used for setting the finished text. The typesetter's own 
software will automatically recognize, interpret, and act on 
these codes, producing finished, camera-ready galleys of 
type in virtually any font and size desired. 

"Frankly," confesses Dave Simpson, manager of Cold 
Type Setters of Minneapolis, "we didn't think it would 
work. It couldn't. What do typists know about typesetting? 
Zero, most likely! But that, we discovered, is part of the 
magic of our Superbrain system (trademark of Intertec, 
Inc.). It really is very close to magic. For the Superbrain 
takes a home operator's keyboard output, along with a few 
basic commands which take the operator only a few 
minutes to learn, and outputs the highest-quality galleys 
you've ever seen. Our customers have never been happier! 
And, on our part, we don't have to go through the lengthy 
and expensive process of training new typesetters. Give us 

continued on page 56 
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BUILD WITH THE ELECTRIC PENCIL 
Jerome I. Weiotraob 



The BUILD utility program is very useful for creating an 
automatic command input file. The procedure for creating 
this file is clearly described in the Model III Disk Manual 
(page 31). Programmers writing short BUILD programs 
should probably use the procedure as it is described in the 
manual. Longer ones, however, presented me with an 
editing problem, as there does not seem to be any way to 
edit them. This means that if you make an error and do not 
detect it until after you have pressed ENTER for a given 
entry, you have to start the BUILD file all over again. 

I examined the file using SUPERZAP and realized that 
the BUILD file is a text file saved in the ASCII format, 
exactly the same as an ELECTRIC PENCIL file with the 
exception of the filespec extension (/PCL) which is 
automatically added to every filespec by the ELECTRIC 
PENCIL program. This led me to suspect that I could write a 
BUILD file with PENCIL and execute it by the command 
DO filespec/PCL A simple experiment proved that this 
indeed works perfectly. 

A good example of a long BUILD file came to my 
attention when I was preparing to enter the patches from 
the September and October (1981) issues of the TRS-80 
Microcomputer News. I have over thirty TRSDOS 1.3 disks, 
and the prospect of entering these patches individually on 
all my disks indicated that it would take a great deal of 
time. My friends at the Radio Shack Computer Center 
suggested that I use the XFERSYS program for this, but I 
found that XFERSYS can be used only to change from one 
version of TRSDOS to another. If you already have TRSDOS 
1.3, XFERSYS will abort. 

Earl R. Savage, in his Education 80 column (February 
1982, page 355) described a procedure for setting up a 
BUILD file to enter a large number of patches. I have 
already hinted at the difference between his method and 
mine, in that a BUILD file cannot be edited after it has 
been saved. You can, if you wish, append additional 
patches to a BUILD file with APPEND. To set up a 
collection of patches in a BUILD file with the ELECTRIC 
PENCIL, follow these specific steps: 

1. Starting with the very first line of your PENCIL file, 
enter each patch on a single line, exactly as presented by 
Radio Shack. An entry in a BUILD file may not be longer 
than 63 characters— exactly the length of one PENCIL line 
on the screen. It is possible for a patch to be longer than 
this, depending on how many bytes are being changed. 
Patches longer than 63 characters could be entered by 
simply using the original PATCH command, or, if you are 
careful, you can divide a long patch into two shorter ones. 
You may notice that Radio Shack has already done this at 
least once: two of the three patches to #7 (Microcomputer 
News, Oct. 1981, page 12): 

PATCH *7 (ADD=5135,FIND=207468652064,CHG=3F20033A7D4E) 
PATCH *7 (ADD=513B,FIND=6973B657474,CHG=FE81CA0D55C9) 

(Note: There must be no spaces inside the parentheses.) 



There are six bytes in the first patch, starting at address 
5135, and ending at 51 3A, and the second patch picks up 
at 51 3B. Therefore it seems that Radio Shack intends to 
keep individual patches relatively short. However, you can 
shorten them by carefully calculating the address of each 
type by counting from the first address: 

5135 to be changed from 20 to 3F 

5136 to be changed from 74 to 20 

5137 to be changed from 68 to 03 (etc.) 

2. Save your PENCIL file with any filespec you choose, 
but remember that PENCIL will add the /PCL extension to 
your filespec. 

3. If you have two disk drives, place the disk with the 
patches into Drive 1 , and the disk to be updated into Drive 
0. With one drive, you will have to get the PENCIL-PATCH 
program onto each disk to be patched. 

4. Get to "TRSDOS READY" and type "DO fi/espec/PCL". 
All patches listed in your program will be executed. In the 
event that one or more of the patches in your file have 
already been made, no harm is done. You will get a 
"STRING NOT FOUND" message (because the FIND bytes 
are no longer there) and the DO program will continue 
without stopping until all patches have been entered. 

5. Keep a file of all patches. Since Radio Shack hasn't 
yet numbered or identified their patches, it will become 
difficult to know whether any given patch* has been made 
as the number of patches increases. As a matter of fact, two 
of the patches in the October Microcomputer News were 
repeated from the September issue. Patches, may arise from 
other sources as well. 

Using the PENCIL file, place a number after each patch. 
This entry will not affect the patches during their entry onto 
a new disk. In this way you will have a permanent record of 
all patches you have collected. 

6. If your collection begins to get larger, you may not 
want to DO all of the patches that have already been made 
to your older disks. You can delete those patches from your 
master file and save the remainder under a new filespec 
and enter only the new ones. But keep the master file 
intact for future reference. 

This is what my PENCIL PATCH file looks like: 



FIND=32,CHG=31) 1 

FIND=20536174204D , CHG=57656420204A) 2 

FIND=6179,CHG=756C) 3 

FIND=3A62,CHG=BF5F) 4 
FIND=20697320616374 ,CHG=0D!16544C31C44) 5 

FIND=0955,CHG=3851) 6 

FIND=207468652064 , CHG=3F20033A7D4E) 7 

FIND=69736B657474 , CHG=FE81CA0D55C9) 8 

,FIND=CD3E4B,CHG=CD8A50) 9 

,FIND=4469736B,GHG=4FC33E4B) 10 



7. Finally, make a note on each disk of the number of 
the last patch you have entered. If you are as busy as I am, 

continued on page 63 



PATCH 


*0 (ADD=5044 , 


PATCH 


*0 (A0D=503A, 


PATCH 


*0 (ADD=5040, 


PATCH 


*6 (ADD=5850, 


PATCH 


*6 (ADD=5FBE, 


PATCH 


*7 (AOD=579C, 


PATCH 


*7 (ADD=5135, 


PATCH 


*7 (ADD=5i3B, 


PATCH 


•10 (ADD=4E2E 


PATCH 


*10 (ADD=508A 
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Attention 

BARGAIN HUNTERS 

Receiwe Hundreds of Classified Ads 
Dke These Ewery Month 



HARD DISK DRiVE Diablo Mod 31 
12 MByte sld density Includes 
power supp and cable, rack mount 
slides, amd manual fcxcelleni 
condition *45» C*>>~— •-— "\1b0l 



FOR SALE: ln t e,data (PerklI ,. E , 

H tape reader, interfaces for "p * 
v„,. u .>.„.. - ■■•— _.^ - I' I"), and RS-23? (Fi.ji 

,„rt parallel . 1ie s-Stngie w etc $eno A( ._ t ', 



standard P> ^ )r , te #al « 
sv* 



20 1 



duplex, 
manuals 
Fortran, OS 



Si 

2^C 



HEATHKIT H-11/DIC LSt-11 
tyitem, 32K Byte itorage, reader 1 
punch, video terminal, complete 
joftware. Cost $4500 wembled, 
$3500 kit. Like new. Sell for S2250. 
305-962-6677. 2058 Griffin Rd , Ft 
Lauderdale. Ft 33312 



"Hm*PUTER AUTOMATION ALPHA 
1fc . it, k-word core memory, RTU 
Pf.R Modified Mod ASR-33 TTY\ 
Manual*, utilities, assemblers anc 
many option boards - 16 b.t I O 
Driver 16 b.t I/O, Asyn* modem 
contr M bit output, 10 bit A U - 
D/A Fairly complete documen- 
tation Up and running tn Fortran 
Not much more than TTY at $1000 
Herb Sauer, 303^*94-8724. 



FOR SALE: Heath H9 video ter- 
minal, excellent condition, $17") or 
33 offer You ship (214] 962-44*4 

memory board w„hou, memory 
IJiV^nbledo, not working) „ 

" P -< h U sinef'r W "^oTr 
*" PfT 2mi , nte m pr,rw 

urn n r W7 " 1b ^ c on ,„ " tfj 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software 

Each ad-packed issue is full of bargains you are 
looking for Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But. COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it 

Looking for a part, component or even a complete system"? A 
COMPUTER SHOPPER subscriber probably wants to sell it 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items Combining 
this with low individual ad rates — 12 cents a word — 




makes it the ideal place for buyers and sellers to com- 
municate And, its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible 

COMPUTER SHOPPER will work for you in other 
ways, too If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe 

Want to look us over first 9 We'll give you your first issue FREE 
and then bill you for the next 12 If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel" on the in- 
voice and return it 

And, to let COMPUTER SHOPPER start working for you right now. 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want 

If you don't need to use the free classified ad now, use it anytime 
during your subscription 

Subscription $lO/year, 12 issues plus your first free one. Bank 
cards accepted Money back guarantee 




The Nationwide Marketplace lor Computer Equipment 

cnm^ureR SHOPPSR 

PO Box 23 • Titusville, Florida 32780 
Telephone 305-269-3211 
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HOW TO GET RICH AND FAMOUS! 
C. Brian Honess 



Now, I didn't say it was going to be easy, but it is 
certainly possible that you could become both rich and 
famous with your microcomputer! The vehicle for this is 
going to be some fairly simple little problems— problems 
that have absolutely defied solution up to the time that you 
solve them. 

We start with one that is easily stated, easy to program 
to test, but it has simply defied solution. It is known as 
"Fermat's Last Theorem." Pierre de Fermat was a famous 
number theorist who made a habit of scribbling notes for 
all the ideas that came into his head as he read. He usually 
scribbled these notes in the margins of his copy of 
Diophantus. His most famous note said that it is impossible 
to find whole numbers, x, y, and z which satisfy the 
equation: 

x n + y n = z n 

where n is an integer greater than 2. He wrote: "I have 
found for this a truly wonderful proof, but the margin is too 
small to hold it." Trying to solve this problem has led to 
countless other discoveries but still no solution. Money 
prizes have been offered, but to no avail. As far back as 
1816, the Paris Academy proposed the proof of the 
theorem as its prize problem for a 3-year period. No takers! 
Several people tried to get Carl Freidrich Gauss to tackle 
the problem, but he said it was an "isolated proposition" 
having very little interest for him because he "could easily 
lay down a multitude of such propositions, which one 
could neither prove nor dispose of." Incidently, Fermat was 
a jurist and parliamentarian, and like you, dabbled in 
mathematics as a hobby! He lived from 1601 to 1665, and 
certainly didn't have a computer to work with. Euler 
presented an incomplete proof for n = 3, which has been 
completed now, and there are some other numbers we oan 
rule out, since: 

x mn = ( x m)n 

(and likewise for y and z) it would seem that all you need 
try is odd prime exponents n, that are greater than 3. 
Incidentally, I can think of a couple of examples where n 

= 2: 



3 2 + 4 2 



5 2 and 5 2 + 12 2 



13 2 



and you might practice by finding other (if there are any 
other) examples where n = 2. Let's not count multiples of 
the above, such as: 



Another fairly simple program to code involves the sum 
of the cubes of the digits in a number. For all the integer 
numbers greater than 1, there are conjectured to be only 
four numbers that are equal to the sum of their digits 
cubed. In fact, all of the four lie in the interval between 
100 and 500. I'll give you the first one: 



153 



I 3 + 5 3 + 3 3 



6 2 + 8 2 



10 2 



and now let's begin by finding the other three. First we'll 
set up a loop and let it run through the numbers 100 to 
500, and we'll have to have some way to divide up the 
number into its individual digits, so we'll use a trick 
employing the INT function: 

10 FOR I = 100 TO 500 

20 J = INTd/100) 

30 K = INTU/10) - (J*10) 

40 L = I - (K*10) - (J*100) 

50 N = JT3 + KT3 + LT3 

60 IF N = I GOTO 80 

70 GOTO 90 

80 PRINT I 

90 NEXT I 

99 END 

Of course lines 20, 30 and 40 will produce the individual 
digits, and line 50 sees if the sum of the cubes equals I, 
and if it does, directs control to the PRINT statement in 
line 70. If you're going to check numbers larger than 999 
later, you'll have to add another term, and "strip off" this 
fourth digit in the same fashion, and add it to the sum in 
line 50. 

Now, if you've already keyed this in and tried it, you're 
way ahead of me, and you're maybe saying terrible things, 
like "It doesn't work!" and "It didn't even find 1 53, and it 
should have!" Well, I admit that on some computers this 
isn't likely to work as is. 

The problem is that we've got some "rounding-off" error 
problems in line 50. Most computers have this trouble. 
They usually raise numbers to powers using logs, and this 
doesn't result in the greatest accuracy. If you change line 
50 to read: 

50 N = J*J*J + K*K*K + L*L*L 

you'll start getting some results. With the latest version of 
line 50, of course we're finding the cube in each case, by 
multiplying the digit by itself three times. 

A second way to solve the round-off problem is to make 
all of the variables integer variables. This can be done by 
inserting: 



So get going with your FOR— NEXT loops, and crunch 
out those values of x, y, z, and n. (Note: I don't want to 
stifle your creativity, so I'll not bother coding a program for 
testing Fermat's Last Theorem. A few FOR— NEXT loops will 
get you started though!) 



5 DEFINT A-Z 

on many BASIC systems, which simply says to make every 
variable starting with any letter from A through Z an integer 
variable. We could have made each and every variable an 
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integer variable throughout the program by adding the 
correct symbol to the variable name, but this seems lots 
easier. When I tried each of these versions, one ran much 
faster than the other, and it wasn't the one I thought it 
would be. How about when you ran it? (By the way, I hope 
you found that the four numbers are: 153, 370, 371, and 
407). 

In a somewhat similar vein as the previous two problems, 
Fermat also offered a proof that every rational integer is a 
sum of four rational integer squares (note that zero can be 
included as one or more of the four). For example: 



2 + 2 + 1 2 + 3 2 



10 



and, 



2 2 + 8 2 + 92 + i 2 2 = 293 

This one should be both easy and fun to program, and 
you'll be famous if you can find one that doesn't "fit" the 
rule! 

Here are a couple of "quick" programming problems, 
not unlike the previous problems. Can you write a program 
which will find all of the three digit numbers that are 
composed of three different digits, such that the number is 
divisible without a remainder by the square of the sum of 
the digits? I've found 10 of them, which I think is all that 
there are. One of them is 162, because 1+6 + 2 = 9, and 
9 squared is 81 and 81 divides 162 exactly twice with a 
zero remainder, and the digits 1, 6, and 2 are all different. 
What are the other nine? 

Can you arrange all 10 of the digits, through 9, in such 
a way that you'll make three different formulae, each with a 
different arithmetic operator (addition, subtraction, multi- 
plication, and division) that will use each digit only once? 
For example: 



4 + 3 = 7 9-1=8 30/6 = 5 

but this example is no good, because I've used the 3 twice, 
and not used the 2 at all. 

There is, according to Fermat, only one integer solution 
to this equation: 

X 2 + 2 = Y 3 

(that solution being: x = 5, y = 3). Can you code a simple 
program which will test all other integer values of x and y, 
up to the limits of the numbers your machine can handle? 



Instant Insanity 



I picked up a little puzzle in England called "Tantalizer" 
and i understand that there is an American version called 
"Instant Insanity." All it is, is four cubes of wood, about an 
inch or so on a side, with a colored dot in the middle of 
each side. The dots are 4 different colors (red, green, blue, 
and yellow) and there is no pattern between their 
placement on each block— the blocks are all different. Here 
is what they look like: 




Notice that I've started getting the problem ready for 
computer solution by substituting numbers for the 4 
different colors. In case you want to make a set of blocks to 
get a visual perspective on how to go about solving the 
problem, I used the following code: 



Yellow = 1 



Green 



Red = 3 



Blue 



but, of course, you could make the cubes with the 
numbers on them too. OK, now what we want to do is to 
arrange the four blocks in such a way as to have four 
different numbers on each side. In other words, we want it 
to look like this: 



/ 2/ 3/ \/ */ 

1 1 2 I 3 1 4 1/ 



As you rotate the figure, you must have one of each of the 
four numbers visible on each of the four sides. The 
numbers on each end don't matter, nor do the "inside" 
numbers. The four numbers can be in any order— just as 
long as there is one of each. The makers of this puzzle 
claim that there is only one solution— I'm not so sure. A 
properly set up BASIC program with a few nested FOR— 
NEXT loops should tell us if the claim of only one solution 
is true. (It will also give you the one solution that they claim 
is the only solution—/ can't give it to you, because I lost 
the answer sheet! Sorry 'bout that!) 

More Short Number Theory Problems 

If I count the lines of a page of a book by threes I have a 
remainder of 2. If I count the lines by fives, I have a 
remainder of 2, and if I count by sevens, the remainder is 
5. How many lines on the page? 

Let's say a printer wants to number the pages of a 288- 
page book, and he doesn't want to use any of the type 
pieces more than once. How many different pieces of type 
will he need? (Answer = 756). Same problem, except he 
uses 15,321 pieces of type. This time, how many pages in 
the book? Now, how many pieces of type will he need, if 
he can use the pieces over and over, but not for the same 
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page number? In other words, to print page 999, he'll need 
three different 9's. Solve this problem for the 288 page 
book and also a 1000 page book. 

How close can your computer come to the square root 
of 2 by using this infinite continued fraction: 

y/2 = 1 + 1 



2 + 



2 + .. 



etc. 



How many terms does it take until you cannot increase the 
accuracy within the bounds of your machine and your 
BASIC by adding additional terms? 

There have been many different estimates of the value of 
77 through the ages: Archimedes proved it was less than 3 1/7 
and greater than 3 10/71 and Hero of Alexandria said it was 
22/7. Ptolemy said rr = 3 + 8/60 + 30/3600 and 
Baudhayana took 49/16 as the value. Arya-Bhata gave 
62832/20000 as the value, in about the year 530, and in 
about 650 Brahmagupta said it was equal to the square root 
of 10. In about 1150, Bhaskara claimed it was 3917/1250 or 
754/240, and he just couldn't be sure which (Neither!) 
(Honess, 1979). The Chinese astronomer Tse Ch'ungchih 
said it was 355/1 1 3 in about the year 450. Leonardo of Pisa 
thought it was equal to 1440/458 1/3. How close are these 
values to the accuracy attainable by your machine and 
BASIC? 

How many terms of the series: 



6 



1 + 



1 



32 42 



+ — + •• 
5 2 



(Euier, 1736) 



will it take to get to the limit of your machine? 
How many terms of the series: 



JL =1 ^JL + 



+ 



1 



(Gregory, 1671) 



will it take to reach the limit of your machine? This is a 
fairly slowly converging series, but is something that can be 
easily programmed. A series that converges more rapidly is 
one discovered by Machin in the early 18th century: 



JL = 4(1/5 
4 

-(1/239 



1/(3.5 3 ) + 1/C5.5 5 ) - 1/C7.5 7 ) +.,..) 

1/(3.239 3 ) +1/(5.239 5 ) - 1/(7.239 r ) + . . . 



How many terms for this series to get to the limit of your 
machine and BASIC? 

In the late 17th century, John Wallis found that: 



JL = 2*2*4*4*6*6*8*8 

2 1 * 3 »3» 5 * 5 * 7 » 7 * 9 » 9 * 



How long does it take this series to converge to the most 
accurate estimate of it your machine can hold? 

In the 3rd century, Diophantus of Alexandria claimed 
there are no integers x, y, and u, that satisfy the equation: 



x 4 + y 4 = u 2 

Was he correct? On the other hand, he claimed to have 
found four integer numbers x, y, z, and u, such that: 

x 4 + y 4 % + z 4 = u 2 

Can you and your computer find them? 

There is one more interesting series for calculating the 
value of n, which is easy to program and easy to to 
determine how fast it converges: 



1 



1 



2*3*4 



4*5*6 



+ 



1 



6*7*8 



Let's pause and code a BASIC program to solve for the 
value of 7T using this series, in case you've had any trouble 
coding the various series to this point. We'll present one 
possible coding first, then an explanation: 

15 T = 18 

20 S = 1 

25 PRINT" TERHS VALUE" 

30 N = 1 

35 FOR I = 2 TO 100 STEP 2 

40 X = 1 / (I * (1+1) * (1+2) ) 

45 Y = X * S 

50 T = T + Y 

55 PI = 4 * T + 3 

60 PRINT N, PI 

65 N = N + 1 

70 S = -1 * S 

75 NEXT I 

80 END 

Since we'll be having a number of terms on the right side of 
the equals sign, line 15 sets up a location in which to Total 
these values. Since the sign in front of the term changes 
from "+" to "— " with each alternating term, I've set up a 
location called Sign in line 20 and set it equal to 1. More on 
this trick later. The counter in line 30 is just going to be 
used on the printout, to let us know how many terms 
we've accumulated on the right of the equals sign. In line 
35 I set up my loop. Initially, I'll look at 50 terls (I go to 
100, but I STEP 2, so it produces 50 terms). In line 40, I 
calculate a particular term and then in line 45 I multiply it 
by the Sign (which I set to 1 back in line 20). Then in line 
50 I add this term to the total of the terms, and print N and 
my current value of it in line 60, after having adjusted for 
the fact that the formula says what we've really found is 
(tt-3)/4 in line 55. Line 65 adds one to our "times-through- 
the-loop" counter, and in line 70 we multiply S by — 1 , 
which in effect changes the sign for the next time through. 
This little program actually does fairly well— as I got a 
value of 3.14159 when I had reached just 32 terms. This 6- 
digit accuracy is the best that most versions of BASIC can 
do, without going to double-precision. Of course you could 
investigate the convergence of the series by increasing the 
100 in line 35, possibly to 1000 or so, and using double- 
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precision variables. Many versions of BASIC allow you to 
declare blocks of variable names as being double precision 
variables by using: 

10 DEFDBL P-Z 

This defines all the variables in the program except the 
counter N, to be double precision. Incidently, I guess I'd 
better give you the value of -n so you can check your 
results: 



3.14159265358979323846264338327950288419716939937519 

to 51 places! Incidently, the value has been calculated to 
a far larger number of places than I've given. In fact, way 
back in 1959, using a first generation computer, the IBM 
704, Mr. F. Cenuys calculated it to 10,000 places in an 
hour and 40 minutes at the Institut de Calcul Scientifique 
in Paris, France. In the same year, a Mr. Felton computed it 
to 10,007 plabes using a Ferranti PEGASUS computer in 
England. 

Another number that has been computed to a large 
number of places is e, the base of the natural logs. The 
series for computing e is much simpler than any of those 
for n, and it was calculated to 60,000 places in 1952 by D. 
j. Wheeler on the ILLIAC computer at the University of 
Illinois. It took 40 hours to do the job. 

e-2. 718281828459 .... 
This is easily found by working with the series: 



i + — + _^_ + — 1__ + : 

1 1*2 1*2*3 1*2*3*4 



+ . . . . 



You should have no difficulty coding a program to investigate 
the convergence of this formula, especially since you don't 
have to fool with the changing signs in front of the terms, 
etc. The denominators are called "factorials" and we can 
use a special notation for them: 

1*2*3* can be written 3! 
1*2*3*4*5*6 can be written 6! etc. 

As you code your program, don't evaluate each denominator 
all over again each time, just save the previous value and 
multiply it by the next number in your loop! 

Trying to prove that e and it are not transcendental 
numbers, and -will eventually start repeating, has been a job 
taken on by a large number of mathematicians over the 
years— and it continues today. There are many other 
problems of the same type. For example, there is a number 
called Euler's Constant, which is designated by the Greek 
letter gamma (y) which has been computed to over 350 
digits and hasn't shown any sign of any sort of cyclic 
behavior yet. Mathematicians have been trying to show that 
it can be expressed as a fraction, in much the same way 
they'd like to show that the other two constants we've 
looked at are fractions. Euler's Constant is 0.577215664, 
and can be expressed as: 



(1+ JL + JL + A + ... + JL) 

12 3 n 



log n 



These days, the calculation of these constants out to 
thousands of decimal places in efforts to prove that they 
will start repeating if you go far enough is really not carried 
out seriously to any degree. The work is now usually done 
in an effort to study the distribution of the digits, and to 
see how the constants behave statistically. The digits are 
tested in any number of ways, using a Chi-square test, for 
example. 

Another interesting test that can be applied is the so- 
called "Poker" test. Here, we group the digits in groups of 
five digits, and, for example, if a group was 82882, you'd 
have a "Full House." The percentages for each of the 
possible Poker hands with the digits to 9 can be easily 
calculated. For example, we'd have exactly 100,000 possible 
Poker hands made up of these 10 digits. Therefore you could 
expect the following "hands" for the percentage of the times 
as follows: 



1 pair 


50.4055 


2 pair 


10.80 


3 of a kind 


7,20 


full house 


.90 


straight 


.72 


4 of a kind 


.45 


5 of a kind 


.01 


"loser" 


29.52 



100.001 

By the way, you should realize that these percentages are 
very different from the percentages associated with each 
Poker hand when you use playing cards instead of the 10 
decimal digits! 

The distribution of the digits to the right of the decimal 
point of n is not really far from the frequencies that would 
be expected. For example, in the first 2000 digits you'd 
expect 200 of each of the number through 9. In fact, the 
distribution is as follows: 






182 


5 


205 


1 


212 


6 


200 


2 


207 


7 


197 


3 


189 


8 


202 


4 


195 


9 


211 



This gives a fairly low Chi-square value of 4.11. 

In 1685, Adam Kochansky, who was a Jesuit employed 
as a librarian to King John of Poland, found what he thought 
was the definitive value of m 



i 



40 , — 



How close was he? 

A series that is a little more complex than those we've 
been investigating was discovered by Sharp in 1717. How 
fast does it converge? 
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3*3 



+ 



1 



1 



5 * 3 2 7 * 3 s 



+ ....) 



I hope you have as much fun with these various series 
and other ideas presented in this article as I had. I've 
coded a few of the programs for you, and I think there is 
enough information for you to have lots of fun with the 
remainder of them. They should converge within the limits 
of your machine, within a few minutes or so, and they are 
all very easy to change to double precision, integerization 
of variables, etc. 

C. Brian Honess 

22 Shaftesbury Lane 

Columbia, SC 29209 ■ 



COTTAGE COMPUTERY COMES OF AGE 

continued from page 49 

a typist with a good accuracy and reasonable typing speed, 
and we'll turn that person into a money-making typesetter 
in about five minutes. Or, more precisely, the Superbrain 
will!" 

But is it really as simple as Simpson says? Indeed, type 
houses and printers throughout the country are following 
Cold Type's lead. "Some of our home keyboarders," 
reports Al Stein, an executive of an east coast house, "are 
right here in town, some of them aren't. But with our long- 
distance WATS lines, It really doesn't make much difference. 
Besides, our keyboarder in Denver brought us in a new 
'local' typesetting account just last week." 

Yet you might be wondering: Doesn't the nearly coast-to- 
coast shipping time involved in sending finished type 
galleys to the Denver client mean a delay for them as 
opposed to them dealing with a geographically-local type 
house? Nope! Not when the galleys themselves are sent 
electronically! "We put them on our laser scanner," 
explains Stein, "and transmit them by satellite link— it's 
cheaper, in this case, than by phone—to our Denver client, 
where they are de-scanned. Don't ask me how it all works, 
but you can sure ask me if it does! Let me tell you, I don't 
know how we ever got along without this kind of 
transmission." 

And it all begins at home. In this case, in a two-bedroom 
townhouse in a Denver suburb, where a househusband 
prepares the morning meal for his family, then walks into 
his den, sits down at his personal computer, and be- 
comes—a typesetter. 

Or whatever! 

Everlastingly at it, 

Michael Herbert Shadick 
Cedar Square West, Apt E-414 
1515 South Fourth Street 
Minneapolis, MN 55454 ■ 



410 PRINT, F2,B 

420 NEXT F2 

430 PRINT, "PRESS ANY KEY TO RU 

440 A$=INKEY$ 

450 IF A$="" THEN 440 

460 RUN 



AGAIN"; 

'STROBE THE KEYBOARD 
'NO KEYS DOWN 



INSPIRATION 

Many of you have sent in ideas, suggestions, complaints 
and compliments, and some of you have asked where a 
software author gets his inspiration and the enthusiasm to 
keep hammering out algorithms and subroutines all day 
long. Well, when I need inspiration I get into my Diesel 
Rabbit and go up to the highway for a filet of fish sandwich 
and a vanilla milkshake. So where is the inspiration? It all 
started right here in Sterling, Illinois about 40 years ago 
when a traveling salesman named Ray convinced Earl, the 
local ice cream man, that he'd sell more milkshakes if he 
used frozen milk than he was selling by mixing milk and ice 
cream, because they'd be thicker. So many in fact that he'd 
have to raise his prices and use paper cups, just to keep 
some metal cups free for the mixer. (In case you haven't 
guessed, Ray was selling paper cups.) 

Well, Earl sold more shakes alright, even after he raised 
the price from a dime to twelve cents, but he burned up 
his mixer because the mix was so thick. But Earl was a 
mechanic, and soon invented a big mixer with a heavy-duty 
motor in the middle and five spindles around the outside. 
Ray was so impressed with it that he quit his job with the 
paper cup company and started selling mixers for Earl. 
(Ray's wife wasn't impressed, she filed for divorce.) 

The mixer business was a little slow at first, so Ray was 
surprised when a place in San Bernardino ordered several 
of them. Who in the world would need to make 20 or 30 
shakes at a time? A couple of guys named McDonald, that's 
who. They were making terrific French fries, so the 
milkshake business was good too. Ray had a long talk with 
the McDonalds and finally got them to let him start 
franchising their operation. You probably know most of the 
rest of the story, if not see if your local library has a book 
titled Grinding It Out by Ray Kroc. Ray earns over a 
hundred million dollars a year, and it all started because 
the frozen milk burned up Earl's old mixer. 

I was hired to write some inventory and production 
control programs on the first TRS-80 Model-I here in 
Sterling for the company that still makes the five spindle 
Multimixer for Earl Prince. Your local McDonalds has one or 
two of them, but you will find them anywhere shakes are 
made. 

The point to this story is, it doesn't make much 
difference who you are or where you live, if you have 
access to a computer and the time to learn how to use it 
(and you do, or you wouldn't have read this far) you can be 
a valuable resource to any of your local industries. 

Now, would you like to hear the story about the filet of 
fish sandwich and the tartar sauce gun? 

Gordon Speer 

3304 Woodlawn Road 

Sterling, IL 61081 H 
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EPSON MX^80 GRAFTRAX INITIALIZATION PROGRAM 

Joseph Rosenman 



Last month, I reviewed the EPSON MX-80 Graftrax 
modification. What did the Graftrax lack? Good support 
software. Although the program included in this month's 
issue doesn't constitute a full-fledged "Graftrax software 
driver," it will both assist in printer initialization and permit 
some experimentation with the Bit Graphics mode. 

Some of you might recall my EPSON Initialization 
Program published in the April 1981 issue of Computronics. 
This program replaces the earlier initialization program for 
MX-80s that have had the Graftrax modification added. 
While both MX-80s (with and without the Graftrax option) 
are similar, there are sufficient differences (and additions) 
to justify a new program. This version incorporates a special 
machine language subroutine to create a block graphic 
border around the screen VERY QUICKLY (a purely esthetic 
consideration). Using machine language subroutines is 
nothing earth-shattering, but what is especially interesting 
about this particular subroutine is how it is used. The 
program is contained in DATA statements, just as you 
would find it in any other program. This method differs in 
that the program is not POKEd into any specific address. 
Instead, it is stored in a string variable. This technique 
permits any program (255 bytes long or less) to be stored in 
an address independent location. In other words, you need 
not reserve memory to run this program. In addition, this 
will run equally well on a 32K or a 48K machine without any 
modification. Furthermore, you could store some other 
machine language. program in high memory (unrelated to 
the Printer Initialization program), without potential memory 
address conflicts. The address of the string location is 
passed to the appropriate DEFUSR statement through a 
calculation involving the VARPTR function. In addition to 
the Graphic Border subroutine, there is a special machine 
language print driver. This subroutine will permit any value 
to be passed to the printer (including a HEX 00H). 

The Bit Graphics section is actually a test learning section. 
Any operations performed in this mode are executed 
immediately, rather than setting parameters. This section is 
very helpful when developing patterns of bit graphic codes, 
or in learning about the Bit Graphics mode of Graftrax. Both 
the 480 and the 960 mode are supported. The program 
allows the bit pattern is set by entering the binary pattern 
(of eight zeros or ones). The pattern can be repeated any 
(reasonable) number of times. Patterns can be printed one 
following the other, or with carriage returns separating the 
different bit graphic patterns. 

10 REH Graftrax Initialization Program Version 1.0 

20 REM 5/82 by J Rosenman 

30 REM 

40 CLS : PRINT g 512 ."Epson MX-80 Graftrax Initialization 

Program" 

50 PRINT g 580, "by Joseph Rosenman" 

60 CLEAR 500 : DEFINT A-N : DEFSTR P-Z 

70 DIM A(22),H(8),P(22),R(24) 

80 GOSUB 160 : ' Set up Variables, Arrays, etc. 

90 GOSUB 300 : ' Prepare Screen. 



100 GOSUB 410 

110 GOSUB 540 

120 GOTO 100 

130 REM 

140 REM INITIALIZATION 

150 REM 



Get & Validate input. 
Process request 



160 FOR 1=1 

170 FOR 1=1 

180 FOR 1=1 

190 FOR 1=1 



TO 22 
TO 22 
TO 38 
TO 14 



READ P(I) : NEXT I 
READ A(I) : NEXT I 
READ N : S=S+CHR$(N) : 
READ N : S1=S1+CHR$(N) 
(PEEK(VARPTR(S)+1) 



NEXT I 
: NEXT I 



200 DEFUSR0=-1*(65536 ■ 

PEEK(VARPTR(S)+2)*256)) 

210 DEFUSR1=-1*(65536 ■ (PEEK(VARPTR(S1) 

PEEK(VARPTR(Sl)+2)*256) ) 

220 T=CHR$(27) : ' ESC CHARACTER 

230 U=CHR$(8) : 'BACKSPACE CHARACTER 

240 Z=STRING$(60," ") : M=898 

250 GOSUB 970 : 'Initialize the strings. 

260 RETURN 

270 REM 

280 REM PREPARE SCREEN 

290 REM 

300 CLS : N=USR0(N) 

310 PRINT § 74, "EPSON MX-80 

320 PRINT g 129,""; : J=129 

330 FOR 1=1 TO 12 

340 PRINT g J,I;U;") ";R(I); 

K,I+12;U;") ";R(I+12); 

: K=K+64 : NEXT I : J=J+5 



1) + 



Graftrax Initialization Program"; 
: K=161 



JJ=J 



PRINT g J, "Enter Selection: 



: GOTO 420 

: NEXT I 
,CHR$(95); : 



FOR 1=1 



350 PRINT g 

360 J=J+64 

370 RETURN 

380 REM 

390 REM GET & VALIDATE INPUT 

400 REM 

410 J=JJ : N=USR0(N) 

J=J+18 

420 PRINT g J,CHR$(127); : FOR 1=1 TO 6 : NEXT I 

430 V=INKEY$ : PRINT g J,CHR$(95); 

440 IF V="" THEN FOR 1=1 TO 10 : NEXT I 

450 PRINT g J,V; ; J=J+1 

460 PRINT g J,CHR$(127); : FOR 1=1 TO 6 

470 V1=INKEY$ : IF Vl="" THEN PRINT g J 

TO 10 : NEXT I : GOTO 460 

480 IF V1=CHR$(13) THEN N=VAL(V) ELSE PRINT g J, VI; : 

N=VAL(V+V1) 

490 PRINT g M,Z; : IF N<1 OR N>24 THEN PRINT g M, "Sorry, that 

option doesn't exist. Try again."; : FOR 1=1 TO 500 : NEXT I: 

J=J-19 : PRINT g M,Z; : GOTO 410 

500 RETURN 

510 REM 

520 REM PROCESS REQUEST 

530 REM 

540 IF N=24 THEN CLS : PRINT "End of EPSON MX-80 Graftrax 

Initialization Program" : END 

550 IF N=23 THEN CLS : GOTO 630 

560 J=J - 1 9 : PRINT g M,Z; : LPRINT T;P(N); 

570 IF A(N) <> THEN PRINT g M+2, "Option ";N;U;": Final 

argument is: "; : LINE INPUT N$ : LPRINT CHR$(VAL(N$)) ; 
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580 N=USR0(N) : PRINT g M,Z; 

590 RETURN 

600 REM 

610 REM Graphics Mode 

620 REM 

630 CLS : N=USR(N) : PRINT g 81, "Bit Graphics Mode MENU"; 

640 PRINT g 129,STRING$(62,CHR$(140))| 

650 PRINT g 258, "1) 480 Bit Graphics Mode"; 

660 PRINT g 290, "2) 960 Bit Graphics Mode"; 

6/0 PRINT g 322, "3) Return to Main Menu"; 

680 PRINT g M, "Enter Selection :"; : LINE INPUT N$ : 

N=VAL(N$) 

690 IF N<0 OR N>3 THEN PRINT g M,Z; : PRINT g M, "Sorry, 

illegal choice. Try again."; : N=USR0(N) : FOR 1=1 TO 500 : 

NEXT I : PRINT g M.Z; : GOTO 680 

700 IF N=3 THEN CLS : GOTO 270 : « WARM INIT MAIN. 

710 I=USR0(I) 

720 PRINT g M.Z; : PRINT g M-64,"Enter Bit pattern (0 off, 1 

on) for character:"; 

730 PRINT g H,"?"; 

740 FOR 1=1 TO 8 

750 Y=INKEY$ : IF Y="" THEN GOTO 750 

760 IF Y <> "0" THEN IF Y <> "1" THEN GOTO 750 

770 PRINT Y; ; H(I)=VAL(Y) 

780 NEXT I 

790 PRINT g H-64.Z; : PRINT g M r r 

800 H=H(1)*128+H(2)*64+H(3)*32+H(4)*16+H(5)*8+H(6)*4+H(7)*2+H(1) 

810 PRINT g M, "Pattern formed, how many repetitions? "; 

820 LINE INPUT N$ ; N=VAL(N$) : I=USR0(I) 

830 IF N=0 THEN PRINT g M.Z; : GOTO 680 

840 IF N>255 THEN N2=INT (N/256) ELSE N2=0 

850 N1=N-N2*256 

860 LPRINT T; : IF N=l THEN LPRINT "K"; ELSE LPRINT "L"; 

870 J=USR1(N1) : J=USR1(N2) 

880 FOR 1=1 TO N : 3=USR1(H) : NEXT I 

890 PRINT g M.Z; : PRINT g M, "Carriage Return to Printer?"; 

900 Y=INKEY$ : IF Y="" THEN GOTO 900 

910 PRINT Y; : IF Y<>"N" THEN IF Y<>"Y" THEN PRINT U; : GOTO 

900 

920 IF Y="N" THEN PRINT § M.Z; : GOTO 680 

930 LPRINT " " : PRINT g M.Z; : GOTO 680 

940 REM 

950 REM Initialize ID strings. 

960 REM 

970 R(l)="8 Lines per inch 

980 R(2)=" 7/72 Lines per inch " 

990 R(3)="6 Lines per inch 

1000 R(4)="n/216 Lines per inch " 

1010 R(5)="n/72 inches per line " 

1020 R(6)="n lines per page " 

1030 R(7)="Homfe print head 

1040 R(8)="Print Italics type " 

1050 R(9)="Print Standard type " 

1060 R(lJ8)="Set Radio Shack mode " 

1070 R(ll)="Set Standard mode 

1080 R(12)="Set compressed mode " 

1090 R(13)="Cancel compressed 

1100 R(14)="Set emphasized mode " 

1110 R(15)="Cancel emphasized 

1120 R(16)="Set double strike 

1130 R(17)="Cancel double strike " 

1140 R(18)="Mask Out-of-Paper 



1150 R(19)="Set Out-of-Paper 

1160 R(20)= M Cancel the M.S.B. 

1170 R(21)="Set the M.S.B. 

1180 R(22)="Reset the Printer 

1190 R(23)="Bit Graphics Menu 

1200 R(24)="Exit Program 

1210 RETURN 

1220 REM 

1230 REM Data values - Graftrax codes 8 machine language 

code. 

1240 REM 

1250 REM Graftrax activation codes. 

1260 DATA 0,l,2,3,A,C,<,4,5, ,, :",;,P,Q,E,F,G,H,8,9,<, = l g 

1270 REM Extra input flag for escape codes. 

1280 DATA 0JJ.1.1.1 J, 0,0,0,0,0, 0JJ, 0,0,0,0.0,0,0 

1290 REM 

1300 REM Subroutine to paint border around video display. 

1310 REM This subroutine is stored in the S character. 

1320 REM 



1330 DATA 62,143 


1 B0RD 


LD 


A, 143 


1340 DATA 33,0,60 




LD 


HL.3C00H 


1350 DATA 6,64 




LD 


B,40H 


1360 DATA 119 


' LOOP1 


LD 


(HL).A 


1370 DATA 35 : 




INC 


HL 


1380 DATA 16,252 ; 




DJNZ 


LOOP1 


1390 DATA 17,63,0 : 




LD 


DE.3FH 


1400 DATA 6,14 : 




LO 


e, 14 


1410 DATA 62,170 : 




LD 


A, 170 


1420 DATA 8 : 




EX 


AF.AF 1 


1430 DATA 62,149 : 




LD 


A, 149 


1440 DATA 119 : 


' LO0P2 


LD 


(HL),A 


1450 DATA 25 : 




ADD 


HL.DE 


1460 DATA 8 : 




EX 


AF.AF' 


1470 DATA 119 : 




LD 


(HL).A 


1480 DATA 35 : 




INC 


HL 


1490 DATA 8 : 




EX 


AF.AF 1 


1500 DATA 16,248 : 




• DJNZ 


L00P2 


1510 DATA 62,188 : 




LD 


A, 188 


1520 DATA 6,64 ; 




LD 


B.40H 


1530 DATA 119 : 


' LOOP3 


LD 


(HL),A 


1540 DATA 35 : 




INC 


HL 


1550 DATA 16,252 : 




DJNZ 


L00P3 


1560 DATA 201 : 




RET 




1570 REM 




END 




1580 REM 








1590 REM Machine Lan 


page Direct Out Printer Driver 


1600 REM Contained i 


i the SI 


character. 


1610 REM 








1620 REM 








1630 DATA 205.127,10 


. i 


CALL 


0A7F ;Get BASIC 


1640 DATA 235 : 




EX 


DE.HL 


1650 DATA 33,232,55 


! 


LD 


HL.37E8H 


1660 DATA 62,63 : 




LD 


A, 63 


1670 DATA 115 : 




LD 


(HL),E 


1680 DATA 190 : 


LOOP 


CP 


(HL) 


1690 DATA 32,253 : 




JR 


NZ.LOOP 


1700 DATA 201 : 




RET 




1710 REM ; 




END 




1720 END 








Joseph Rosenman 








35-91 161 Street 








Flushing, NY 1135 


8 ■ 
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OMPUTERWARE 

Dact C. ■ Box Ml 
8809 Specials EnelnHu. CA 92024 ■ (714) 436- 351 2 



FREE 

business software 
directory 

• Radio Shack's Model 1, II, III. 

• Heath's MBASIC and HDOS 

• CPM: Xerox, Alto... 

• IBM Personal Computer 



"IDM2 is GREAT 



-publisher of 80- US 



" (GL) superior to either the Osborne (SBSG & Taranto) 
or Radio Shack ... MAIL- X has a greater capacity ... 
more flexible than (R.S.)" 

-columnist of 80-microcomputing 

" imperceptively fast. . .(DBMS) is a good and reliable 
workhorse" -publisher of Interface Age 

Data base manager, integrated accounting package 
(AR, AP, GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 



a^ 



Micro Architect, Inc. 

96 Dothan St., Arlington, MA 02174 



From Computer Plus to YOU . . . 

PLUS^PUIS^PLUS 




Model 16 128K 

1 Drive $4199 

2 Drive $4799 




H 14* hrf tout vi#* 
*.!-■■! I i' i, ii ■ ..■.:. 




fSfifZB&t^ 



Model liMM S?99 

Model III 48K 

2Drsfc&RS232c$1949 




OfcrdalQ 82A $425 





BUY DIRECT 



Here are just a few of our fine offers . 
call TOLL FBEE for full information. 



COMPUTgRS 

Model II 64K 
Model r!i4KLs¥ 
MODEL Ml 16K 
MGDEUI>32K 

"MODEL r!)32K 

MODEL fl!43K 
'MODEL IIM8K 

Model III 48K 

2Drsk&RS232c 

tModelHI48K 
2DrskNaRS232c 
Color Compure.M6K 
Color Computer 16K 
w-»sdendedbas!C 
Color Computer 32K 
w extended basrc 

tCoror Compter 32K-64K 
^'extended oasrc 
Packer Coropuier 2 
Wode* I61DR128K 



«56.SC 
83-1 SO 



Model 16 2DB128K 
DT-1 DaraTermrnal 

Lynx Dir©cr Connecr MrM|li 
Hayes Smad Modem Ii 
Telephone rnterface II 
R.S. Modem ID C 
8.5 Modem II D C 

pmnims 

Dassy Wheel ri 

SmrrhCoronaTPJDar 
Epson MX80 
Epson MXSO FT 
Epson MK100 



Lrne Prater V 
MiCrofmeSO 
MiGro!me82A 
Mrcroiine33A 

P G Piorrer Prtnfer 



heel 599 .3 



We have the towest possible 
Fully Warranted Prices AND 
a full complement of Radio Shack 
Software, 



DISK DRIVES 

RS Model III IST-Drsve 
Tandort 40 Track Mi 
Color Computer Drrv-e 1 
Color Compuler Drive 
Prrmary Hard D>sN 
ETC. 
Verparyni 5 Ooubie Densin 
8 Doubr>Densrty DouS^e 
Srded Drskettes 
Ctr-80A recorder 
C CJoysircks 

16KRAMNEC 200 N S crisp 
64KRamCh'ps 



= 10 ! 



call TOLL FRiE 1-800-S43-81M 



com 




TELETYPE INTERFACE 




PARALLEL PORT TO SERIAL DATA 

INTERFACE ASR & KSR 33 TELETYPES 

MODEL I II & III COMPA1ABLE 

NO SOFTWARE OR MEMORY REQUIRED 

20 MA CURRENT LOOP FORMAT 

SIMPLE LLIST. LPRINT COMMANDS 

LINEFEED AFTER CARRIAGE RETURN 

110 BAUD RATE STANDARD 

PA RESIDENTS ADD 6% SAlFS TAX 



$139.95 



GTI ELECTRONICS CO. 

RD 2 BOX 234B LFHiGHTON PA 18235 
7< 7 386-4032 
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POCKET COMPUTER CORNER 

S. M. Zimmerman, Ph.D. and L M. Conrad 

This Month: Solving Simultaneous Equations with the 

TRS-80 and Sharp Pocket Computers 

Copyright® 1982 Zimmerman and Conrad 



Simultaneous equations have few applications by them- 
selves, but are often needed as part of the solution 
procedure for business, engineering, and scientific problems. 
The problems associated with solving small sets of simul- 
taneous equations are not great. However, as the number 
of equations increase, manual solutions become more and 
more time consuming and difficult to complete with 
accuracy. 

This program we have developed for the pocket computer 
can handle up to 10 simultaneous equations. We ran a test 
of ten equations on our pocket computer and found 32 
minutes were needed to complete the task. This included 
three minutes and 15 seconds to print the input data. The 
same data set was run through a simultanous equation 
program on our Model I TRS-80 and the amount of time 
needed was 50 seconds, including ten seconds to print the 
input data. 

If you are not familiar with simultaneous equations, we 
are going to review an example and some background of 
the technique. We will then walk through a sample run and 
interpretation of output. Finally, we will examine the 
program in detail to show where different activities are 
performed. 

Background for Simultaneous Equations 

The procedure used to solve the simultaneous equations 
starts with the laying out of the coefficients and constants 
of the equations into a matrix. We created the following set 
of equations to use as an example to illustrate the steps in 
the process: 



Equation § 

1 10 * XI + 5 * 

2 XI + .5 

3 2 * XI + 8 * 



X2 + 4 * X3 = 50 

' X2 + 9 * X3 = 30 
X2 = -10 



The lay out of the above coefficients and constants in a 
matrix looked like the following: 







columns 




Matrix § 1 


10 


5 4 


50 


rows 


1 


.5 9 


30 




2 


8 


-100 



The first step in the solution process is to look at the first 
column, starting with the first row, to find the first nonzero 
value. In this case the 10 in row 1, column 1 , is a ten, 
which means this row is selected. 

The first row is divided by the value ten found in row 1 , 
column 1, and the new first row is entered into a new 
matrix below: 



.5 



Matrix § 2 



The next step is to get a zero in row 2 column 1, and 
row 3 column 1. This is done for row 2 by subtracting the 
first row of the new matrix, times the value in row 2 
column 1 , from the second equation and entering the new 
equation as row 2 of the new matrix: 



old row 2: 1 
-1* new row 1: -1 


.5 
-.5 


9 
-.4 


30 
- 5 


new row 2 





8.6 


25 



Now the same thing is done for row 3: 



old row 3: 2 

-2* new row 1: -2 



new row 3 



-1 
7 



-10 
-110 



The complete Matrix §2 follows: 



Matrix # 2 



.4 5 

8.6 25 
-.8 -110 



The process now continues with the second column 
(.5,0,7) starting with the second row a nonzero coefficient 
is sought. In this case the value in the second row is zero 
and we must add a new step. The new step is to move the 
row with the nonzero value into the second row and the 
row which was in row 2 is moved to where the new row 
came from. The new matrix is as follows: 



.5 



Matrix |2a 



.4 

-.8 

8.6 



5 

-110 

25 



The process of dividing through by the value in the 
current row column (2,2) position, seven, into the values in 
row two is the next step: 
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TRS-80> 




COLOR GAME ^ 

LIMITED OFFER! 

WE'LL S€ND YOU OUR BONUS GAME OF THE MONTH 

WHEN YOU BUY ANY 2 GAMES 

^K^tSo^HI-RESOLUTION GAMES" ~"— "~" 

GATOR ZONE 

"18.95 

STARBASE ATTACK 5255 
* aamrmuM rnnmnw 

J 12 95 



•:><x:<x:<x=»<:<x<x* 



THE FIRST ANTI-PREPPY COMPUTER GAME 
WHERE YOU'LL FIGHT OR LOSE YOUR SHIRT! 



HIGH SPEED ARCADE GAME 



KQ5HJC Mhmms 18.85 



EACH 



Master Card 
and VISA accepted. 



GALLOPING GAMBLERS 

illustrated memory banks 

P.O.BOX 289 DEPT. C 

WILLIAMSTOWN, MA. 01267-0289 

*TkS 80 is a TM u£ 
Tandy Corp. 

"CASSETTE 

CERTIFIED CHECKS OR MONEY ORDERS ONLY 
PHONE ORDERS - CALL MON-FRI 9-5 EST 



TEL.413-663-9648 



ZOR LOF 



THE MAGNIFICENT 

WORD PROCESSING SYSTEM 

For the TRS-80* Model I and III 




' WnM.en & iasi IS8 rr 



• Move Jitoek ot text 

* Copy WsckoJ lext to disk. 

» msert block ottsxt tram disk 

» Examine d^sk directory on any disk and kiM t^jes whs!? 

editing 
■ Fait screen editing ot EOTASM' and 3A:;iC text UH 
« Automatic renumtoing tor lDTAKM* ana BASIC in« 

* Prim contents ot screen function. 

• Print p. 



■ Aulomatscafiy justifies and wyra-wr^ps an (He screen as 
you type 

• SHif! and shi!! txk for upoer case 

• Search. Rsp!ace. and Automatic Search & Replace 

• Atiiomasic tab&ing 

• Or^d and gvsn page user-detmaWe headers, footers and 

tottom margins. 



it previewing formats text, ins. 
pages, etc on m screen without printing it on paper 
■ Page Dy cage pausing capability *or sheet fe ' 



• Supports botri sarattei ai 

• Printer control code ace* 

?37'and Cm Printer tV* 

• Aiso supports ssecias capabilities ot Epson MX-8Q 
Microbe OsaWo Starwnter. srbrt Qyms printers 

■ Qn !>e used wr!!i any TftSOOS" combat mis disk 
oner^ing system 



Note Same tealures wiit an!y work i! your printer has |r 



GUARANTEE 

Many word processing systems claim theirs are the best, but few would dare to 
guarantee them. Not us 1 We are confident that you will iind ZORLOF to be the 
most uselui word processing system lor the money, or you can reiurn il for a fuil 
return! and you may have up to 30 days to decide 



ANITEK ^ $70.00 



ANITEK 

Software Products 

P.O. Box 1136 

Melbourne. FL3I935 

(305) 259-9397 



Spicily MoAlt t or ttt «i>m offering. Adit Sa.M I VISA I 

shipping S h«n«n,. Florida r«si«.nts add 5S I — 



•Trademarks ot Tandy Corporation and Apparai. tnc 



an 



STORES & PROTECTS il 

1 1 DISKETTES 

Disk-0-Tier organizes and 
protects diskettes close at 
hand, and in minimum space 
Convenient, upright storage 
avoids "wipe-outs" caused by 
scratches, coffee spills, 
and cigarette ashes; plus, 
titles are easy to read. 

Disk-O-Tier is molded of 
smoked, sturdy NAS 
plastic and safely files 
eleven 5 1 4" or 8 "diskettes 
in or out of jackets. 

Priced at $9.50 each, 
include $2.00 postage 
or $19.00 for twin-pack 
which includes postage. 
Ohio orders add 5%%. 
Check or Money Order 
please. Non-U.S. orders 
add $5.00. 

ETS Center 

Dept.50 Box 651 , 35028-A, Turtle Trail 
Witioughby, OH 44094 • (216) 946-8479 




RIBBONS 

Low Price * FREE Shipping 

SATISFACTION GUARANTEED 

MX-80 Cartridge 



12 



price each in quantity of 
3-5 6-11 12-23 



24-47 



_8j5_8.41 7.90 7.43- 6 .99 

RIBBON LOOPS 

new ribbon for your old cartridge 

top quality nylon • standard matrix ink 

price each in quantity of 
1-2 3-5 6-11 12-23 24-47 
3.95 3.63 3.34 3.08 2.83 
7.86 7.23 6.65 6.12 5.63 
2.92 2.69 2.47 2.27 2.09 
2.26 2.08 1.91 1.76 1.62 



MX-70/MX-80/MX-100 
MX-100 double length 
Decwriter LA34 
Radio Shack 26-1418 



New cartridges are available in black ink only. 
Loops are available in blue or black ink (same price). 
You may mix any combination for quantity price breaks. 
Ribbon loops include DO-IT-YOURSELF INSTRUCTIONS. 

ViSA DATA SYSTEMS MasterCard 

(305) 788-2145 • Box 99 * Fern Park, FL 32730 
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Matrix # 3 



.114285714 -15.71428571 



listed the following results as it came off our printer. 



The next step is to get a zero in row one column two, 
and row three column two. This is done for in a the same 
manner used to get the zeros in the first column. We have 
performed these steps and printed the final Matrix # 3 
below: 





1 





0.457142857 


12.85714286 


Matrix § 3 





1 


-.114285714 


-15.71428571 










8.6 


25 



The process is now repeated for the last column of 
coefficients, column three. Since all the steps are the same, 
we have performed the steps and written the results below: 



1 



Matrix # 4 



11.52823921 
-15.3820598 
2.906976744 



The answers are shown on this matrix. The value of X1 is 
11. 52823921, the value of X2 is -15.3820598, c.nd the 
value of X3 is 2.906976744. As you will see from our 
sample run these results are exactly the same as the 
computer produced. We found no round-off errors. It took 
several tries to eliminate all of the errors from our manual 
calculations. 

Running the Program 

Since the program is not part of a group, we did not 
identify it in any way. The program may be run in the RUN 
or DEFinable MODEs by typing RUN and hitting the ENTER 
key. The first thing you will see is: 

NO EQ? 

This question asks the number of equations to be solved. 
We decided for comparison purposes to use the three 
equations from our example, so we typed 3 and hit the 
ENTER key. 

The next question was: 

EQ# 1. 
COEFF: 1. 

? 

We answered 10 and hit ENTER. The next thing we saw 
was: 

COEFF: 2, 
? 

This time we typed 5 and hit ENTER. 
Inputting the data from here on is the same as before, 
except the constant is called for by name. Be careful and 
actually type in the value of when such is the case. The 
pocket computer indexes to the next line when no 
character is sent as the answer to a question, in a manner 
different from other computers we know of. 

After all data is input the computer produces the 
following results on either the printer or display. We have 



EQUATIONS 

#1- 



§2, 



m. 



11.52823921 
-15.3820598 
2.906976744 

If you obtain SINGULAR for the output of the program, it 
means there is no solution possible. This happens when all 
the remaining coefficients in any given column are zero. 

Examination of the Program 

The program is organized into eight main parts. Each 
part, the line numbers associated with the part, and the 
function of the part are identified below: 



Part 

I 

II 

III 

IV 

V 
VI 

VII 

VIII 



Line numbers 

1-3 

4 

6,17 

7-8 

9-10 
11-12 

13-16 

18 



Function 

To input the equations 
To print the input 
The loop for each equation 
To select a nonzero 
coefficient 

Switch equations if necessary 
Divide to get 1 in current 
row/column position 
Subtract to get 0's in 
current column 
To print results 



You may wonder why we made line 4 a subroutine. This 
was done to enable us to add the ability to print a working 
matrix whenever we wished. For example, you can add a 
COSUB 4 at the end of line 6 and obtain the working 
results of each cycle. 

The ideal way to store and control the data in this 
program is with a double subscripted variable. Since A(i) is 
the only subscritped variable in our pocket computer, we 
had to partition this variable to serve this purpose. Data 
storage for this program starts with A(10). The program 
leaves 105 memories available. Twenty six less 10, plus 
105, leaves 121 useable memory location for data. A 10 by 
11 matrix needs 121 data storage areas, a 11 by 12 matrix 
needs 132 spaces. We feel we are near the maximum 
number of variables the pocket computer can handle. 
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QUESTIONS AND ANSWERS 

Conducted by Hubert S. Howe, Jr. 



QUESTION 

from Brian Peterson, 6807 N. Sheridan Rd., Chicago, IL 
60626: The TRS-80 Pocket Computer-ll supports PEEK, 
POKE, and CALL commands. I have tried contacting Radio 
Shack for information on the machine language used in the 
computer. They gave me some story about the machine 
language being "proprietary information." What's going on 
here? Since when is a machine language on a computer 
proprietary information? 
ANSWER 

I would take it to mean that Radio Shack doesn't know what 
the machine language of the Pocket Computer II is, either. 
Radio Shack does not manufacture this device. Sharp 
manufactured the Pocket Computer I. I don't know who 
manufactures the Pocket Computer II, but I believe it is 
either Sharp or Panasonic. In any event, the machines 
probably use something like a calculator chip. Maybe 
somebody reading your letter will know more. 

QUESTION 

from Stanley Esposito, Jr., 830 E. Lutton St., New Castle, PA 



16101: I own a TRS-80 Model 1 4K and am just being 
introduced to the computer field. I would like to upgrade 
the system which uses cassettes, and I would also like to 
learn the BASIC, RPG and Cobol Languages. Where does a 
beginner begin? 
ANSWER 

First, I would recommend that you upgrade to 16K, which 
you can do by purchasing 4116-type dynamic RAM chips 
and installing them yourself. Several companies sell these 
chips for under $20.00 for 16K. 

Next, I would recommend that you learn BASIC well. It is 
the most widely used programming language for microcom- 
puters, and there are many fine books explaining aspects of 
BASIC programming. Before learining RPG or Cobol, I 
would recommend that you read books on the subject. It 
makes little sense to learn these languages unless you can 
then use them on your computer. These languages are rarely 
used on microcomputers, although they might be important 
in the future. Reading about them will certainly help, and 
might save you valuable time, m 



POCKET COMPUTER CORNER 

continued from previous page 



Program Listing 



1: INPUT "NO EQ?";A:D=10 

2:F0R B=l TO A:PAUSE "EQ#;B:F0R C=l TO A:PAUSE "C0EFF:";C 

:D=D+1: INPUT A(D):NEXT C:D=-D+1 
3:INPUT "CONSTANT?" ;A(D):NEXT B:G0SUB 4:G0T0 6 
4:H=10:PRINT "EQUATIONS" TOR J=l TO A:PRINT "#";J:F0R 1= 1 TO 

A+1:H=H+1: PRINT A(H):NEXT I: NEXT J:RETURN 
6:F0R B=l TO A:C=B:D=10+(B-1)*(A+1)+B 
7:IF A(D)=0LET D=D+A+1 :C=C+1 : IF C=A+1PRINT "SINGULAR": END 

IF A(D)=0 THEN 7 

I=11+(C-1)*(A+1):IF C=B THEN 11 
10:FOR E=l TO A+1:H=A(I) :G=(B-1)*(A+1)+10+E: A(I)=A(G) : 
A(G)=H: 1=1+1: NEXT E 



F=A(10+(B-1)*(A+1)+B) 

FOR E=l TO A+1:G=(B-1)*(A+1)+10+E:A(G)=A(G)/F:NEXT E 

FOR D=l TO A:G=10+(D-1)*(A+1)+B:IF D=B NEXT D:G0T0 17 

E=-A(G) 

FOR F=l TO A+1:G=(D-1)*(A+1)+10+F:H=(B-1)*(A+1)+10+F 

:A(G)=A(G)+EA(H):NEXT F 

NEXT D 

NEXT B 

FOR B=ll+A TO 11+A+(A-1)*(A+1) STEP A+l: PRINT A(B) : NEXT B 



SUMMARY 

Simultaneous equations are used to help solve many 
different business, engineering, and scientific problems. 
The time needed to solve small sets of simultaneous 



equations is not great. However, as the number of 
equations increase, manual solutions become more and 
more time consuming and difficult to complete with 
without making errors. 

The program developed for our pocket computer can 
handle up to ten simultaneous equations. The time 
increases with an increase in the number of equations. Our 
test of ten equations took 32 minutes. For more than ten 
equations we recommend the use of larger faster computer. 

Steven M. Zimmerman, Ph.D. 
College of Business 
University of South Alabama 
Mobile, Alabama 36688 

Leo M. Conrad 

Imagineering Concepts 

P.O. Box 9843 

Mobile, Alabama 36691-0843 ■ 



BUILD WITH THE ELECTRIC PENCIL 

continued from page 50 

you will not be able to remember which disks have been 
updated or how many of he patches have been made to 
each of your disks. I have added a small self-adhesive 
sticker to each disk on which I have pencilled in the 
number of the last patch made. 

Jerome I. Weintraub 
690 Mountain View Road 
El Cajon, CA 92021 m 
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PAYROLL SIMLLIMI I 




• THE ULTIMATE PROFESSIONAL PAYROLL SYSTEM 

• HANDLES ALL PAYROLL FUNCTIONS AND REPORTS 

• QUICK QUARTERLY AND END OF YEAR SUMMARIES 

• PERFECT FOR A SMALL BUSINESS 



il Wl 



• EXPANDS TO HANDLE LARGE CORPORATE PAYROLLS 

mm c„ bd„ m 9 m • mm s • o mm® * mm* • mw 

m is mn i ® m m 

■ TRS-80 is a trademark of Tandy Cgrp. - * APPLE is a trademark of Apple Corp. ■ I.B.M. is a trademark of IBM. Corp. - 'XEROX is a trademark of Xerox Corp. • TORI is a trademark of Atari Inc. 
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HOW IT WORKS .... " 

VERSAPAYROLL is a complete menu driven payroll system that grows as you or your business grows YourVERSA- 
PAYROLL acts as a simple payroll system keeping track of all government required payroll information Just enter the 
employees, VERSAPAYROLL will perform all the necessary payroll calculations automatically and display to totals 
on your screen. The user has complete control to accept the totals, to print or not print out a check and to oost or not 
post the total to our VERSALEDGER system. ' 

• VERSAPAYROLL automatically prints out your PAYROLL checks (IF YOU 
WANT IT TO) 

• VERSAPAYROLL allows you to override any payroll deduction (IF YOU WANT 

IT TO) 

• VERSAPAYROLL automatically posts all checks written to our VERSALEDGER 
system. (IF YOU WANT IT TO) 

• VERSAPAYROLL allows the user to print out PAYROLL checks one at a time 
(IF YOU WANT IT TO) 

• VERSAPAYROLL allows the user to print out all your PAYROLL checks at the 
same time. (IF YOU WANT IT TO) 

• VERSAPAYROLL gives you a summary of any employee's year to date payroll 
totals or all employee totals at any time. (IF YOU WANT IT TO) 

• VERSAPAYROLL will allow you to correct any error made at any time and auto- 
matically refigure all totals. (IF YOU WANT IT TO) 

• VERSAPAYROLL works in every state. {IF YOU WANT IT TO) 

• VERSAPAYROLL automatically calculates all federal and states taxes (IF YOU 

WANT IT TO) 

• VERSAPAYROLL allows for all of the standard deductions plus state, city and 
three miscellaneous deductions. (IF YOU WANT IT TO) 

• VERSAPAYROLL prints all government required reports. (IF YOU WANT IT TO) 

• VERSAPAYROLL permanently stores all PAYROLL transactions. (IF YOU WANT 

IT TO) 

• VERSAPAYROLL HAS AN ALMOST UNLIMITED CAPACITY 

Can handle up to 300 employees on a TRS-80 MODEL 1. 600 employees on a TRS-80 MODEL II 1. 1 200 employees on a TRS-80 MODEL 
II. 500 employees on an APPLE II. 600 employees on any single density 8" CP/M computer and almost unlimited capacity on hard disk 

systems. 

CAN BE USED WITH 1 or MORE DISK DRIVES (AND 48K) 




INTRODUCTORY PRICE 

$ 99. 95 



VERSAPAYROLL HAS BEEN CREATED 
WITH THE FIRST TIME C SJSER IN MIND 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.O. OR NON-UPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N Y. STATE) 

(800) 431-2818 



nn 



HOUR /A^ 
24 ORDER CjSp/ 

LINE "^ ' 



*** ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE*" (91 4) 425-1 535 
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• THE ULTIMATE ACCOUNTS PAYABLE SYSTEM 

• HANDLES ALL ACCOUNTS PAYABLE FUNCTIONS 

• QUICK PERIODIC SUMMARIES AND REPORTS 

• PERFECT FOR PERSONAL OR BUSINESS USE 

• EXPANDS TO HANDLE LARGE CORPORATE PAYABLES 

mb mm raw® mm i m, 000, w • mm® • d MMo* • 1111 s • iiup 
10, w Hii j m i i unmi 

* T8S-80 is a trademark of Tarty Carp. - * OTIE is a tnfcmrk of Uppto Corp. - * I.B.M. is i tntanrk of I.B.M. Corp. • 'XEROX is a trademark of Xerox Corp. - ' AT1UH is a trademark of Man he. 

lifilAE4I^Si§£ is a complete menu driven accounts payable system. It keeps track of all 
information related to how much money you (personally) or your company owes. It prints all 
necessary checks and statements on easily obtainable tractor feed forms (or on plain paper). 
Prints all summary reports to keep you in touch with the flow of money going out of your hands (or 
leaving your company). In short, VERSAPAYABLES is designed to keep track of current and aged 
payables. The system maintains a complete record of each vendor, helps determine which trans- 
actions to pay by due date within certain cash requirements and prints checks automatically with 
a detailed check register. 

• VERSAPAYABLES prints out your checks. (IF YOU WANT IT TO) 

• VERSAPAYABLES prints out a detailed check register. (IF YOU WANT IT 
TO) 

• VERSAPAYABLES allows for full or partial payments. (IF YOU WANT IT 
TO) 

• VERSAPAYABLES prints out vendor mailing labels. (IF YOU WANT IT 
TO) 

• VERSAPAYBLES prints out all commonly used ACCOUNTS PAYABLE 
reports to give you a total picture of money you or your company owes. 
(IF YOU WANT IT TO) 

• VERSAPAYABLES integrates with VERSALEDGER. (IF YOU WANT IT 
TO) 

• VERSAPAYBLES HAS AN ALMOST UNLIMITED CAPACITY 

400 vendors and transactions per month on sinlge density 5 '/»" disk drives such as 

the TRS-80 MODEL I 

600 per month on the APPLE II 
2400 per month on the TRS-80 MODEL III 
6000 per month of the TRS-80 MODEL II 
3000 per month on single density 8" CP/M 
Almost unlimited capacity on hard disk drive systems 

Above capacities are estimates and depend on disk space available and your vendor-transaction mix 




INTRODUCTORY PRICE 

$ 99. 95 



¥ERSAPAYIiLES HAS BEEN CREATED 
WITH THE FliST TIME COMPUTER USER M MIND 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 1OT77 



ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADO MOO FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 TO CANAOA AND MEXICO 
AOD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 
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' ALL PR1CIS AND SPECIFICATIONS SUBJECT TO CHANGE* 



HOUR /£W- 

24 ORDER ^*?/ 

LINE ^~^ 

(914) 425-1535 
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• THE ULTIMATE ACCOUNTS RECEIVABLE SYSTEM 

• HANDLES ALL ACCOUNTS RECEIVABLE FUNCTION! 

• QUICK PERIODIC SUMMARIES AND REPORTS 

• PERFECT FOR PERSONAL OR BUSINESS USE 

• EXPANDS TO HANDLE LARGE CORPORATE 
RECEIVABLES 

""15 



TRS-80 is i trademark of Tandy Corp. - 'APPLE is a 



► IULIE® • 

imp ;• • » lis 

of Apple Corp. - IB J. is a trafarark of I.B.M. Corp. - 'XEROX is a trademark if Xerox dip. ■ 111 is a tradtrartt of Atari ins. 



HOW IT WCCiKS . 



VERSARECEIVABLES is a complete menu driven accounts receivable system. St keeps track of all 
information related to who owes you or your company money. St prints all necessary statements, 
invoices and all summary reports to keep you in touch with the flow of money owed to your com- 
pany. In short, VERSARECEIVABLES is a complete invoicing and monthly statement generating 
system which keeps track of current and past due receivables. 



• VERSARECEIVABLES invoices your customers. (IF YOU WANT IT TO) 

• VERSARECEIVABLES prints customer mailing labels. (IF YOU WANT IT 
TO) 

• VERSARECEIVABLES generates monthly (or periodic) statements at 
any time. (IF YOU WANT IT TO) 

• VERSARECEIVABLES uses commonly available preprinted statements 
and invoices. (IF YOU WANT IT TO) 

• VERSARECEIVABLES allows partial payments on open invoices. (IF 
YOU WANT IT TO) 

• VERSARECEIVABLES prints out all commonly used ACCOUNTS 
RECEIVABLE reports to give you a total picture of money owed to your 
company. (IF YOU WANT IT TO) 

• VERSARECEIVABLES keeps a history of each account, both current and 
aged. (IF YOU WANT IT TO) 

• VERSARECEIVABLES is ideal for doctors, lawyers, small and large 
businesses. 

• VERSARECEIVABLES HAS AN ALMOST UNLIMITED CAPACITY .... 



•**«* 
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INTRODUCTORY PRICE 
$ 99 _95 



400 customers and transactions per month on single density 5V4" disk drives such as the TRS-80 Model I 

600 per month on the APPLE II 
2400 per month on the TRS-80 MODEL ill 3000 per month on single density 8" CP/M 

6000 per month on the TRS-80 MODEL II Almost unlimited on hard disk drive systems 

Above capacities are estimates and depend on the customer-transaction mix and the amount of disk space available. 



VERSARECEIVABLES HAS BEEN CREATES 

WITH THE FIRST THVfE COMPUTER USER IN MIND 
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50 N. PASCACK ROAD 

SPRING VALLEY, NEW YORK 10977 



ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.O. OR NON-UPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 




*" ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE* 



(914) 425-1535 
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WABASH WARRANTY FLEXIBLE DISKS 




wsbssK 

5-YEARWARRANTY 

8" Maxi-Myte 
Flexible Disks 

The only 8" diskettes guaranteed 
to perform for a full five years. 

Single Side / Double Density 



$OQ95 



BOX OF 10 



abash 2-year warranty 

5 1 // Mini-Myte Flexible Disks 

The only bV4' diskettes guaranteed 
to perform for a full two years. 

Single Side / Double Density 



$0195 



BOX OF 10 



COATING The Coating process has 
been recently improved by our revolu- 
tionary SR-3000 manufacturing process, 
resulting in a completely uniform surface, 
with excellent adherence to the polyester 
base. The result: consistent signal qual- 
ity which is crucial to all applications, on 
all appropriate drives. 

PUNCHING State-of-the-Art equip- 
ment at the Paoli plant assures precision 
punching and assembly for every Wabash 
diskette. Certification and initialization are 
also care fully supervised at 
this stage, guaranteeing sat- 
isfactory use of Wabash dis- 
kettes for years to come. 

Ask us about our other in-stock 
and ready-to-ship products 
including printer ribbons, 
pressure sensitive labels, 
paper, media storage equip- 
ment, and more! 



CALL TODAY OR SEND COUPON 

300-631-2818 %m 914-425-1535 





I 
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50 N. Pascack Road 
Spring Valley, N.Y 10977 




r~| Please send me boxes of 8" Maxi-Myte Flexible Disks at $39.95 

L - J per box. Please add $3.00 for shipping. 

r~| Please send me boxes of SW Mini-Myte Flexible Disks at $34.95 

L - J per box. Please add $3.00 for shipping 

I I Please send me more information about other Computronics products. 
□ Check enclosed □IJJgJ] DBS] □! 



Credit Card No.. 
Name 



.Exp 




Address 

City/State/Zip. 
Phone ( 



I 
I 
I 




CENTRONICS 

779 / RS 
LINE PRINTER I 

MAKE YOUR PRINTER 

A REAL WORKHORSE 

WITH OUR NEW 

PRINTER 

CONTROLLER 
BOARD 



Remove the controller board in your printer and 
plug ours in to add the following capabilities: 

• Bidirectional printing 

• Full UPPER/lower case ASCII plus TRS-80 
graphics or DSE scientifics character sets 
in 9 x 7 dot matrix format (9x9 available as 
option — requires print head change) 

• Motor control — turns off the motor when 
the printer is not in use 

• 2048 character buffer 

• Software selectable features 

• transfer protocol (XON/XOFF or 
none) 

• character densities (10, 12, 15, 16.5 
cpi plus double width in each size) 

• self-test 

• forms length control 

$350 assembled and tested 

Radix 
Technologies 

Suite 400 Carolyn Building 
10400 Eaton Place 



Fairfax, VA 22030 



(703) 385-0900 



VISA, MasterCard, check, COD accepted 



ADVERTISING DIRECTORY 

8 ABM Products 1-800-854-1 555 

5 Alpha Products 1-800-221-0916 

61 Anitek Software Products 305-259-9397 

9 Aspen Software Company 505-281-1634 

13 Bealin Corp 301-490-2477 

10 Bible Research Systems 512-346-2181 

34-35 BT Enterprises 516-981-8568 

Cover 4 The Business Division. 305-830-8194 

43 Compass Systems, I nc 603-329-5603 

1 1 Compusoft Publishing 800-854-6505 

29, 31 Computech 201-364-3005 

59 Computer Plus 617-486-3193 

51 Computer Shopper 1-800-327-9920 

59 Computerware 714-436-3512 

39 Cosmopolitan Electronics Corp 313-397-3126 

61 Data Systems 305-788-2145 

8 EAP Co 81 7-498-4242 

4 Eighty System Newsletter 

61 ETS Center 21 6-946-8479 

25 Allen Celder Software 59 

59 CTI Electronics 717-386-4032 

37 Hacks 713-455-3276 

Cover 2-3 H & E Computronics 1-800-431-2818 

64-67 H & E Computronics 1-800-431-2818 

61 Illustrated Memory Banks/IMB... 413-663-9648 

21 Kwik Software 417-326-71 54 

21 Lemons Tech Services 417-345-7643 

59 Micro Architect 

3 Micro Systems Software 1-800-327-8724 

43 Nanos Systems Corp 317-244-4078 

12 Pel/Tek 215-947-2334 

3,17 Powersoft 800-52 7-7432 

22-23 Racet Computes 714-997-4950 

68 Radix Technologies 703-385-0900 

45 The Softcore Software Co 513-294-3383 

33 Software Options, I nc 1-800-521-6504 

6 SOURCELiB Systems 800-223-1087 

41 Virginia Micro Systems 703-491-6502 
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The Original Magazine for Owners of the TRS-80™ Microcomputer 



MODEL I 



MODEL II 



MODEL III • POCKET COMPUTER 



COLOR COMPUTER 



Software 

lor TRS-80 

Owners 



iCQMPJTRQNXCS 

MONTHLY NEWS MAGAZINE 




• PRACTICAL APPLICATIONS 

• NEW EXPANDED BUSINESS 
SECTIONS 

• GAMBLING 

• GAMES 

• EDUCATION 

• PERSONAL FINANCE 



•BEGINNER'S CORNER 
•NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS & ANSWERS 

• PROGRAM PRINT OUTS 
...and MORE! 



YOUR CHOICE k. 



FREE 



A. 



with your Subscription or Renewal 



NANOS SYSTEMS CORP 

TRS-80 At Your 

Fingertips Complete quick 
reference guide to basic, assem- 
bly language and graphic codes 
— all at your fingertips for all 
TRS-80 computers (specify 
computer). 

Asse moly Language Section N*A loi Color Cornpuler 



B. 



OR 



A Word Processor. 
Data Management 

System and Cleanup 

(A maze game) All on cassette 
(Add S3 for diskette, add $5 for 
modified MOD-II diskette version 
— N/A on color computer or 
pocket computer.) 
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CALL TOLL FREE 

800-431-2818 



50 Norlh Pascack Road 
Spring Valley. New York 10977 

(Outside of New York Stale) 
D One Year Magazine Subscription S24 D New □ Renewa 
D Two Year Magazine Subscription $48.00 D New □ Renewal 
D Sample Issue $4. □ Mod II Newsletter Subscription S18 
Your Choice. TRS-80 " at Your Fingertips or Word Processor/ Data Management L 
Model I I Model II Model III Color Computer Pocket Computer 



24 HOUR ORDER LINK 

914-425-1535 



NEW! 



NEW! 



MOD-II 

NEWSLETTER 

18/ Year (or 12 issues) 



Name 



Address 



City 



State 



Zip 



Signature 



Credit Card Number 



E xpiratio n Date 



Add$i2/Yeai i Canada Mexico)— Add S24 Year Air Mail outside ol U S A . Canada and Mexico 
All Prices and Specifications SnOiect so Change 

TRS-80 is a trademark ot me Radio Sriack Division of Tandy Corp 
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SO N PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 




US POSTAGE 
STANDARD 
BULK RATE 

Permit s56 
New City N Y 10956 



FORWARDING POSTAGE GUARANTEED 
RETURN POSTAGEGUARANTEED 





PLEASE ANSWER THESE 5 QUESTIONS 

YES NO 

I. Do you have information that must be kept organized and 

accessible? I I [ | 

2. Do you ever need to perform statistical analyses? LT 

3. Would you like to have a tool that will allow you greater flexibility 
m managing your own or your company's money? 

4. Could you use a mail list program that will be easy to use, 
maintain an unlimited number of names, allow you great sorting 

flextbility, and even interact with a word processor? 

5. Do you own or have access to a TRS-80 microcomputer? 

\1 you answered -yes to any of these questions, we can be of assistance to 
you. Our Max, Ser.es of applications programs are designed to give you maximum 
versatili y with a minimum of hassle. These programs were created for business use. 
but you II find yourself using them for personal applications as well. 

«„„ t J, h f mU ° h * u ?P ort - ° f course, each program comes with in-depth, user 

, h i, m ° n - 3nd ,S menu -dnven to make it easy to use. When necessary 

the Maxi P^ams are compatible with each other, and, whenever pertinent, are 

ntLZrtL T"? the "If/ ' W ° rd P rocess 'ng and spreadsheet programs published by 

other manufacturers. Also, we maintain a telephone support line to provide you with 

V any assistance you might require proviae you witn 

. , „ ; 

/ ^f?^ 1 + *°" «gT by Dale Kub,er I +taxi Croc "y «•* «»»e< 

/ m ^H Manager 13 a remarkable data Case manager Its fast I ^ ww *** W» «■• 

/ Tne sop* «7£3 ?l C Z' e :r ,S " S ' ar9e da,a s, °' a 9 e opacity. (Check Register Accounting System, 

lh,lI?~LV I. ono '" s dala en,r V. management, and printing capa lA ^ 

omiies makes Maxi Manager a versatile tool for many applications / S ls a s YSlem that will computerize check writing, 

,».=,- , , P '° 9 ' am no " inc ' uc, es Maxi Utility, which allows you to/ rec °rd«ng an <3 analysis lor business and personal finance The system 
m,s7,« i„H °" dlsKe " es tna ' "ave been damaged by excessive wear or / Matures 223 income and expense accounts, each of which will handle 

base Let m« ,Hn^i,V^ 2' °' dele,e ' le ' ds ''0™ an existing data J an ufl " m "ed number of transactions Extensive register and report 

da^managemen; 3 '^^ ca ab ""<« «' Ma *' """Ber handle your P-ting capabilities make Max, CRAS an mdispensible toot tor 

M od* I * Mod* in. Minimum , dl ,k d riv. lmqulrml 012 . 0196 I149 „ / u^^^Zf'nT'* , rf 

f — ^g^ -N"'"« uuman »H*W] Modal t & Model HI. Minimum 2 drives req uired 0120145 $98.95 

- -»• ▼fOll b * Dale Xubler I ^kM^.^9 J> aZI ' — 

1 M ,VLil*". ' S 3 power ' u ' ma " "st management system that ^«W 0FOT "^ ° awG ' Walomck 

1. 15 easy 10 usg 

2 Has virtually unlimited storage capaoly I „ Maxi S,a ' IS the most use ' ul statistical analysis package en the 

lsii»/f ™h W ,'IT <Ue ma ' or Mord Pressors to generate form / T V " W3S develo P ed '° alio* maximum flexibility m 

letters and other exf. a ° m I designing customized analysis Maxi Sf-it h 3 nrii„ t .*„ IL __ ' 
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